Написать программу, которая по последней цифре числа позволяет определить последнюю цифру его квадрата.

Var a, b: longint; begin write ('введите число ->   '); readln (a); a: =a mod 10; b: =(a*a) mod 10; writeln ('последняя цифра квадрата числа -> ',b); end.

Var   a,b,c,y,x,: real; function stup(x: real; n: integer): real; var   i: integer;   k: real; begin   k: =1;   for i: =1 to n do k: =k*x;   stup: =k; end; begin   writeln ('введите x (число должно быть положительным)'); readln (x);   if x> =0 then begin       a: =stup(x,6); b: =stup(x-5,3); c: =stup(2*x+1,5);       y: =(a*b)/c;       writeln ('y=',y: 5: 2);       end end.

Отдел +; использует приём из "", вывод из ""; пер   n, сумма, сч, скор, макс: цел; указ   сумма : = 0;   макс : = 0;   вывод.цепь("введите число автомобилей: ");   n : = приём.число();   если n < 1 и n > 30 то вывод.цепь("^ошибка.") иначе     вывод.цепь("^введите скорости: ^");     от сч : = 1 до n вып       скор : = приём.число();       если n < 1 и n > 300 то вывод.цепь("^ошибка."); стоп(0) кон;       увеличить(сумма, скор);       если скор > макс то макс : = скор кон;       вывод.цепь(" ")     кон   кон;   вывод.чвещ("^средняя скорость: %.1f.^", сумма / n, 0, 0, 0);   если макс > = 60 то вывод.цепь("yes") иначе вывод.цепь("no") кон кон .