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.
Let array = [1, 2, 8, 4, 12, 35, 2, 5, 6, 21];
let odd = [Int];
let even = [Int];
for (number in array) {
if ((number mod 2) == 0) {
odd.append(number);
} else {
even.append(number);
}
}
println('Четные числа: \(odd)');
println('Нечетные числа: \(even)');
Смотрите решение с исправлением на прикреплённом файле
При чтении массива вложенный цикл, а переменная одна и та же j ,
for j:=1 to 4 do
begin
for j:=1 to 4 do
замените в первом цикле
for i:=1 to 4 do
Из 8 фунтового горшка перелить до краёв в 5 фунтовый горшок, за тем из 3 фунтового в 8 фунтовый)))