Информации
компьютере/роботе
алфавит
Слово "Алгоритм" происходит от имени известного узбекского учёного Мухаммед аль-Хорезми.
Program z1;
var a,b,c,p:double;
begin
readln(a);readln(b);
c:=sqrt(a*a+b*b);
p:=a+b+c;
writeln(p);
readln
end.
Int arr[100]; //Массив
int N=0; //Кол-во элементов массива
int c=0; //Счётчик
for(int i = 0; i < N; ++i) cin >> arr[i];
for (int i = 0; i < N; ++i) {
if((arr[i] / 10)%10 > arr[i]%10)c++;
}
cout << c;
Program bbb
var
N,k:integer;
begin
writeln('введите число N');
readln(N);
k=0;
for 1 to N do
begin;
if k mod 5=0 then
k:=k+1;
writeln(k);
end;
end. Попробуй так должно получится, если не получается добавь переменную i в разделе var и вставь сюда (for i=1 to N do...)