Нельзя преобразовать тип real к integer program chees; var m,n,s,k :real; begin readln(m); readln(n); s:=m*n; If S mod 2<>0 then k := s /2+1 else k:=s/2; writeln(k) end.

S mod 2<>0 then k := s /2+1 else k:=s/2; writeln(k) end.

Ответы:

Поля Толмачёва

10-06-2018 11:51

Program chees;var m, n, s: integer; k: real;begin readln(m); readln(n); s := m * n; if s mod 2 <> 0 then k := s / 2 + 1 else k := s / 2; writeln(k)end.

Также наши пользователи интересуются:

Пожалуйстааа!!! Напишите цитаты: умный человек в понимании Фамусова и Чацкого!!Задание 1 помогите узнать значение выражений?

Картинка с текстом вопроса от пользователя АМИНА САВИНА

⭐⭐⭐⭐⭐ Лучший ответ на вопрос «Нельзя преобразовать тип real к integer program chees; var m,n,s,k :real; begin readln(m); readln(n); s:=m*n; If » от пользователя АМИНА САВИНА в разделе Информатика. Задавайте вопросы и делитесь своими знаниями.

Открой этот вопрос на телефоне - включи камеру и наведи на QR-код!