Дано значение расстояния в метрах. Составить программку, определяющую больше ли это

Если в паскале то
Program fhfhjhf;
var a , a1 :integer ;
begin
Writeln('апиши число');
Readln(a);
Writeln('Найдем число');
a1 = a*0.001;
If a1gt;100 then writeln('Конечно больше')
else Writeln('Конечно меньше');
Writeln('Не за что');
end.

Эвелина Зеннатулина 2019-04-27 03:11:35

спасибо большое)))

Aleksej Pjatnov 2019-04-27 03:12:57

не за что

Anastasija Pizjaeva 2019-04-27 03:14:43

чуваааааак, сос, паскаль пишет,что это нифига не верно

Lukjanenko Valek 2019-04-27 03:17:22

Program1.pas(7) : Встречено '=', а ожидалось ';'

Валерий Ундрицов 2019-04-27 03:22:47

что делать???????????

Эвелина Иштванова 2019-04-27 03:27:50

попробуй програм переписать заглавие и проверь наличие ; всюду не считая БЕГИН

О проекте

Дано значение расстояния в метрах. Составить программку, определяющую больше ли это

Добро пожаловать!