Регистрация
katunina2004ox971p
02.03.2021 13:24
Информатика
Есть ответ 👍

Дано трехзначное число. верно ли, что среди его цифр есть равные 7?

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

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

Гарфилд32
Гарфилд32
4,5(46 оценок)
//pascalabc.net //версия 3.3, сборка 1627 begin write(abs(readinteger).tostring.where(x-> x='7').count< > 0); end.
ilona125
ilona125
4,7(16 оценок)

var i,n: integer;

seven: boolean;

begin

  readln(n);

      for i : = 1 to 3 do begin

    if n mod 10 = 7 then begin

      seven: =true;

      break;

    end;

    n: = n div 10;

  end;

  if seven then writeln('есть равные 7 ')

  else writeln('кратных 7 нет');

end.

Andrey5454
Andrey5454
4,6(84 оценок)
12288  бит = 12288 : 8 =  1536 байт 1,5 мбайт -1 мбайт = 0,5 мбайт =0,5*1024 =512 кбайт 512 кбайт -500 кбайт = 12 кбайт =12*1024 =12288 байт 12288 -7168 = 5120 байт 5120 - 1536 = 3584  байтов   осталось до финиша

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