program q;
var
a: integer;
b: real;
begin
b := 0;
read(a);
b := (a div 10 + a mod 10) / 2;
writeln(b);
end.
На Pascal'e
*Проверил*
Команды:
1) условная V>35?
2) P="не принят"
3) условная S>3?
4) P="принят"
5) Р="не принят"
var
i, n, k, max: <em>integer</em>;
begin
readln(n);
max := Integer.MinValue;
for i := 1 to n do
begin
readln(k);
if (k mod 4 = 0) then
max := System.Math.Max(max, k);
end;
writeln(max);
<span>end.</span>
1-векторный, 2- растровый
Класс- абстрактное понятие, объект его физическая величина