Исправьте код ,где ошибка ???
10-11 класс
|
возможно после if нужно поставить then и проверь 5 строчку, кажется там должно быть prinTf. А что за язык?=))
Другие вопросы из категории
Помогите пожалуйста научиться решать задачи по типу:
Некто задумал натуральное число, не превосходящее 118, а затем сообщил: "Задуманное мною число является кратным числу 3". Какое количество бит информации содержится в этом сообщении?
Знаю про 2^i=N, но как это использовать?
Читайте также
const
N=20;
var
a:array [1..N] of integer;
i,j,max:integer;
begin
for i:= 1 to N do
readln(a[i]);
max:=99;
j:=a[i];
for i:= 1 to N do
if (j>99) and (j<999) and (j mod 9 <>0) and (j>max) then max:=j;
if max>99 then writeln (max) else writeln ('no');
readln;
end.
программа проверяет только последнее число, а не все 20. где ошибка?
var i: integer;
begin for i:=1 to 10 do
begin
mas1[i]:=random(n);
Write(mas1[i]:3);
end;
end.
var i: integer;
begin for i:=1 to 10 do
begin
mas1[i]:=random(n);
Write(mas1[i]:3);
end;
end.
Var A:array[1..6,1..6] of integer;
X:array[1..6] of byte;
i,j,n:byte;
sum:longint;
Begin
write('Введите кол-во строк N: ');
readln(n);
sum:=0;
For i:=1 to n do
Begin
For j:=1 to n do
Begin
write (vvedite matricy A[i,j]: ') ;
write(A[i,j]:4);
sum:=sum+A[i,j];
End;
if (A[i,i])>(A[i,j]) then x[i]:=0
else x[i]:=1;
writeln;
End;
writeln ('Полученный массив');
For i:=1 to n do
write(X[i]:2);
writeln;
writeln('сумма матрицы = ', sum);
readln;
End.
ЗАДАНИЕ:ВЫЧИСЛИТЬ СУММУ ПЕРВЫХ 13 НАТУРАЛЬНЫХ ЧИСЕЛ КРАТНЫХ 5