Циклы (for and while), помогите составить программу в Pascal ABC, пожалуйста.
Составьте программу, которая выводит на экран количество трехзначных чисел у которых вторая цифра в два раза больше первой, а третья в два раза больше второй.
Ответы
Ответ дал:
0
var
n, k: integer;
t, v, p : real;
begin
k:=0;
for n := 100 to 999 do
begin
p:= n div 100;
v := (n div 10)mod 10;
t := n mod 10;
if (v = 2*p) and (t = 2*v) then
k:=k+1 ;
end;
print(k);
end.
n, k: integer;
t, v, p : real;
begin
k:=0;
for n := 100 to 999 do
begin
p:= n div 100;
v := (n div 10)mod 10;
t := n mod 10;
if (v = 2*p) and (t = 2*v) then
k:=k+1 ;
end;
print(k);
end.
Ответ дал:
0
Только он не количество выводит, а сам числа, чет я невнимательно прочитал
Ответ дал:
0
А можите если не сложно исправить
Ответ дал:
0
Сек
Ответ дал:
0
Можете*
Ответ дал:
0
спасибо
Вас заинтересует
2 года назад
2 года назад
7 лет назад
7 лет назад
9 лет назад
10 лет назад