Регистрация
lenahalezina
19.10.2020 16:39
Информатика
Есть ответ 👍

Как написать в паскале? дано целое трехзначное число n. верно ли, что в нем есть хотя бы одна цифра 7?

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

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

ролл10
ролл10
4,4(87 оценок)
Program new var begin for i =10 to 1000  do begin if x mod i = 7 then written('yeah') end; i: =i*10 end; end.
BaVeRSB
BaVeRSB
4,5(43 оценок)
Var   n: integer; begin   readln(n);   if (n mod 10 = 7) or (n div 100 = 7) or ((n div 10) mod 10 = 7) then writeln(true)   else writeln(false); end.
Melenocka0606
Melenocka0606
4,8(30 оценок)

здесь можно выбрать не один, а 3 ответа:

a.

х: =-2; у: =-1;

if (х< 0) and (у> 0) then а: =х

else а: =у*2;

в этом варианте a = y*2 = -1*2 = -2

b.

х: =-2; у: =-1;

if (х< 0) and (у< 0) then а: =х

else а: =у*2;

в этом варианте a = x = -2

c.

х: =-2; у: =-1;

if (х< 0) and (x< 10) then а: =х

else а: =у*2;

в этом варианте a = x = -2

ответ: a. b. c.

Популярно: Информатика