var a,b:integer;
is7:boolean;
begin
readln(a);
b:=0;
is7:=false;
while a <>0 do
begin
b:=b+a mod 10;
if a mod 10 = 7 then
is7:=true;
a:=a div 10;
end;
wrtieln('Сумма цифр: ', b);
write('Цифра 7 ');
if is7 then writeln('есть') else writeln('нет');
readln;
end.
Var
x:integer;
begin;
for x:=1 to 10 do
writeln(x,' см=',x*2.54,' дюйма');
end.
При чтении массива вложенный цикл, а переменная одна и та же j ,
for j:=1 to 4 do
begin
for j:=1 to 4 do
замените в первом цикле
for i:=1 to 4 do
Канада, Бразилия, Япония - морские державы
Канада, Бразилия, США - страны Западного полушария (страны Северной и Южной Америки)
Канада, Мексика, США - страны Северной Америки
Амазонка, Енисей, Нил - крупнейшие реки мира
Волга, Амур, Иртыш - реки России
Лаура, Эльба, Висла - реки Европы
Принтер, монитор, клавиатура - устройства ПК
Клавиатура, сканер, мышь - устройства ввода
Берёза, жасмин, ромашка - растения
Яблоня, груша, вишня - плодовые культуры
// Выбирайте, тут три цикла, while, repeat и for
//------------------------
program LoopWhile;
begin
var (a, b) := (-10, 10);
while a <= b do
begin
Println(a, Abs(a));
a += 1
end;
end.
//------------------------
program LoopRepeat;
begin
var (a, b) := (-10, 10);
repeat
Println(a, Abs(a));
a += 1
until a > b;
end.
//------------------------
program LoopFor;
begin
var (a, b) := (-10, 10);
for var i := a to b do
Println(i, Abs(i));
end.