n - кол-во чисел
i - цикловая переменная
а - число
max - максимальное число, оканчивающееся на 3
Язык програмирования: Паскаль.
var
n,i,a,max: integer;
begin
readln(n);
max := -1;
for i := 1 to n do
begin
readln(a);
if (a mod 10 = 3) and (a > max) then
max := a;
end;
writeln(max)
end.
Прикладываите свои фаилы
Не у всех есть тетрадь по информатике за 4 класс
program T;
const Pi = 3.14;
var C, R, S: real;
begin
writeln('Введите Радиус:');
readln(R);
C:= 2*Pi*R;
S:= Pi*sqr(R);
writeln('C = ', C, ', S = ', S);
end.
Немного не уверен в const, т.к. не пользуюсь этим, но поиграй там: поставь двоеточие, если не сработает. А так программа должна, в принципе работать. Только одно НО: у тебя неправильно на счёт integer, так как число пи - не целое, и программа выдаст ошибку.
36 часов понадобится,так как столб 60 см,с 12 до 24 улитка ползёт 25 см,с 00 до 12 улитка ползёт 10 см,и с 12 до 24 улитка ползёт 25 см,склади 25+25+10=60 см