program poezd;
var
s, v, vm, t : real;
begin
WriteLn('Введите скорость поезда(км/ч)');
read(v);
writeln('Введите время(в секундах)');
read(t);
vm := v * 1000 / 3600; //переводим км/ч в м/с
S := vm * t;
if S > 200 then
begin
writeln('Да, больше.');
end;
if S < 200 then
begin
writeln('Нет, меньше.');
end;
end.
1)
var
a, b, c, d: integer;
begin
readln(a);
b := a div 100; { сотни }
c := (a mod 100) div 10; { десятки }
d := a mod 10; { единицы }
writeln('Сумма цифр равна: ', b + c + d);
end.
2)
var
a, b, c, d, p: integer;
begin
readln(a);
b := a div 100; { сотни }
c := (a mod 100) div 10; { десятки }
d := a mod 10; { единицы }
p := d * 100 + c * 10 + b;
writeln('Наоборот: ', p);
end.
3)
var
a, b, c, d, e: integer;
begin
readln(a);
e := a div 1000; { тысячи }
b := (a div 100) mod 10; { сотни }
c := (a mod 100) div 10; { десятки }
d := a mod 10; { единицы }
writeln('Сумма: ', e + b + c + d);
writeln('Произведение: ', e * b * c * d);
end.
Write (ndivm +1)
Если не поймете - прокомментирую
Var
x, y: integer;
begin
write('Координаты точки x,y ');
readln(x, y);
if ((sqr(x) + sqr(y)) <= 4) and ((sqr(x) + sqr(y)) >= 1)
then writeln('Принадлежит')
else
writeln('Не принадлежит');
end.
Тест №1
Координаты точки x,y -1 1
Принадлежит
Тест №2
Координаты точки x,y -3 3
Не принадлежит
1)101011001
2)0.0013)101101.10100110011