Регистрация
tanshka
09.06.2022 01:47
Информатика
Есть ответ 👍

Алгоритмизация. 1. данытривещественныхчисла. выбратьтеизних, которыепринадлежатинтервалу [1,3] 2.найти сумму цифр трехзначного числа. определить, является ли сумма однозначным числом.

152
464
Посмотреть ответы 2

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

syune333
syune333
4,7(29 оценок)

1)

 

program pr1;

var i: integer; n,n2,n3: real;

begin

for i: =1 to 3 do begin

  writeln('daite tzifru'); readln(n);

  if n in [1..3] then writeln('prenodlejit intervalu') esle writeln('ne prenodlejit intervalu');

  end;

readln;

end.

 

2)

 

program p2;

var i,c,cod,summa: integer; s: string;

 

begin

  writeln('daite tzivfru'); readln(s);

  for i: =1 to length(s) do

    begin

        val(s[i],c,cod); summa: =summa+c;

    end;

str(summa,s);

if length(s)> 1 then writeln('summa ne yavljaetsya odnoznachnim chislom: ',s) else

  writeln(summa  yavljaetsya odnoznachnim chislom: ',s);

readln;

end.

Maria2009
Maria2009
4,4(36 оценок)
40*1024=40960 -  мбайт на жестком диске 40960/600 =  68,26, округляем в большую сторону, т.е  69 дисков потребуется

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