{{15x+20y+30z=270} var x,y,z, y1,x1:integer; begin x1:=270 div 15; for x:=1 to x1 do begin y1:=(270-15*x) div 20; for y:=1 to y1 do begin z:=(270-15*x-20*y) div 30; if 1(5*x+20*y+30*z=270) and (z<>0) then writeln(x:5,y:5,z:5,'proverka',15*x+20*y+30*z=270); end; end; end.
ответ 2 3 6proverkaTRUE 2 6 4proverkaTRUE 2 9 2proverkaTRUE 4 3 5proverkaTRUE 4 6 3proverkaTRUE 4 9 1proverkaTRUE 6 3 4proverkaTRUE 6 6 2proverkaTRUE 8 3 3proverkaTRUE 8 6 1proverkaTRUE 10 3 2proverkaTRUE 12 3 1proverkaTRUE Проверку можно убрать. Используем два цикла для перебора, а z -вычисляем
{Дано двузначное число. Определить: а) является ли сумма его цифр двузначным числом; б) больше ли числа а сумма его цифр} var n, s : byte; a:integer; begin writeln('введите двузначное число'); readln(n); {определение суммы цифр числа div - целая часть от деления, mod - остаток от деления} s:=n div 10 + n mod 10; writeln('сумма цмфр числ', n:5, 'равна',s:5); if s>9 then writeln('сумма цифр двузначное число', s) else writeln('сумма цифр не двузначное число', s);
writeln('введите число а'); readln(a); if s>a then writeln('сумма цифр', n,' больше ли числа ', a) else writeln('сумма цифр', n,' меньше числа ', a);
var x,y,z, y1,x1:integer;
begin
x1:=270 div 15;
for x:=1 to x1 do
begin
y1:=(270-15*x) div 20;
for y:=1 to y1 do
begin
z:=(270-15*x-20*y) div 30;
if 1(5*x+20*y+30*z=270) and (z<>0) then
writeln(x:5,y:5,z:5,'proverka',15*x+20*y+30*z=270);
end;
end;
end.
ответ
2 3 6proverkaTRUE
2 6 4proverkaTRUE
2 9 2proverkaTRUE
4 3 5proverkaTRUE
4 6 3proverkaTRUE
4 9 1proverkaTRUE
6 3 4proverkaTRUE
6 6 2proverkaTRUE
8 3 3proverkaTRUE
8 6 1proverkaTRUE
10 3 2proverkaTRUE
12 3 1proverkaTRUE
Проверку можно убрать. Используем два цикла для перебора, а z -вычисляем