Регистрация
alenapanina00
19.12.2022 17:55
Информатика
Есть ответ 👍

Найти первую цифру трехзначного числа

203
481
Посмотреть ответы 2

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

danila110420051
danila110420051
4,4(97 оценок)
Паскаль var a: integer; begin writeln('введите трехзначное число'); read(a); if a div 100 in [1..9] then writeln(a div 100) else  writeln('ошибка'); end.
odminsovet
odminsovet
4,5(79 оценок)
Program p1; uses crt; var a,g,i,s,s2: integer; begin i: =1; s: =0;   while i< > 0 do begin         read(a);       s: =s+a;         if s> =750 then begin           i: =0;       end;                 if s< =750 then begin               g: =g+1;               end; end;   if s> 750 then begin         s2: =s-750;       writeln( ' не осталось мест для  ',s2);   end;       if s> 750 then begin           s2: =s-a;         writeln('всего попало на космолёт  : ',s2);   end;   749 writeln('понадобилось гидов : ',g); end.

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