ГДЕ ОШИБКА??СКАЖИТЕ ПОЖАЛУЙСТА
10-11 класс
|
ЗАДАНИЕ:ВЫЧИСЛИТЬ СУММУ ПЕРВЫХ 13 НАТУРАЛЬНЫХ ЧИСЕЛ КРАТНЫХ 5
Ну вот это на паскале то что ты описал мне в комментах
он долен отсеивать не нужные числа
ок, щас напишу на паскале, может поймёшь принцип
должны получиться числа 5 10 15 20 ...и до 65
а сумма 455 должна получиться
Другие вопросы из категории
CLS
K = 0
DIM B(K)
INPUT N
FOR I = 1 TO N
INPUT A
IF A > 0 AND A MOD 3 = 0 THEN K=K+1 : B(K) = A
NEXT I
IF K > 0 THEN GOTO 10 ELSE GOTO 20
C = K
10 FOR D = C TO 1
PRINT B(K)
NEXT D
END
20 PRINT -1
END
произведение его цифр.
Читайте также
из ящика, чтобы обеспечить себя пары одного цвета. Скажите пожалуйста.
У нас на первом курсе тема Pascal, а я гляжу на него как баран на новые ворота...
Я отстал сильно на 2 недели и ни могу ни как понять его... Скажите пожалуйста по конкретнее с чего начать, что именно нужно изучить или выучить, понять, чтобы знать как составлять на нём программы ?
из ящика, чтобы обеспечить себя пары одного цвета. Скажите пожалуйста.
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. где ошибка?
read(x); if a=180 then writeln('razvernutyi') else writeln ('ne razvernutyi'); end.