4«условный оператор» написать программу: дано четырехзначное число. определить, входит ли в него цифра 6.

165

431

Посмотреть ответы 3

Ответы на вопрос:

KOnyaHA

Информатика

4,6(5 оценок)

program spinogryz21; var x, i: integer; yes: boolean; begin yes : = false; write('введите число х '); readln(x); for i : = 1 to 4 do begin if (x mod 10) = 6 then yes : = true; x: =x div 10; end; if yes then writeln('6 входит в число х') else writeln('6 не входит в число х'); end.

Rita210606

Информатика

4,6(42 оценок)

uses crt; var a,b,c,d,ch: integer; begina: =0; b: =0; c: =0; d: =0; readln(ch); a: =ch div 1000; b: = (ch div 100) mod 10; c: =(ch div 10)mod 10; d: =ch mod 10; if ((a =6) or ( b = 6) or (c = 6 ) or ( d = 6)) thenwriteln('yes') else writeln('no'); readln; end.