===== PascalABC.NET =====
begin
var a := 1.7 * (4.9 - 7.23 / 4.8) + 3.4;
var b := 1.2314 + 8.85 ** 5;
var c := 0.00354 / (347 + 526.71) * 0.21;
PrintLn(a, b, c)
end.
Результаты:
9.169375 54290.7953553125 8.50854402490529E-07
Var
r: longint;
begin
readln (r);
if (r mod 5) = 0 then write ('Кратно') else write ('Не кратно');
end.
Материальная - машина и вселенная
Нематериальная - запись формулы
Смешанная - школа и армия
1) Ярлык
2) Элементы управления
3) Представление
С тебя спасибка!
Var n:real;a:integer;beginreadln(a);n:=a;if (a mod 2=0) and (a>0) then n:=a/4;if (a mod 2=0) and (a<0) then n:=a*5;if (a mod 2=1) then n:=a*a;writeln(n);end.