Информатика. выберите правильное написание формулы в msexcel: a) =b1*b2(c4+c15) b) b1*b2*(c4+c15) c) - id958435420220401 от bulavskaaana 01.04.2022 02:21

Question

Информатика: Информатика. выберите правильное написание формулы в msexcel: a) =b1*b2(c4+c15) b) b1*b2*(c4+c15) c) =b1*b2/(c4+c15)

bulavskaaana · Accepted Answer

Вроде должна работать это 1 задача

uses crt;
var a,i,j,n:integer;
begin
writeln('ВВедите кол. конфет в (кг)');
read(a);
n:=0;
if a>=10 then begin n:=n+ a div 10; a:=a-(a div 10*10); end;
if (a>=5) and (a<10) then begin n:=n+ a div 5; a:=a-(a div 5*5); end;
if (a>=1) and (a<5) and (a<10) then begin n:=n+ a div 1; a:=a-(a div 1*1); end;
writeln('Общее количество коробок = ',n);
end.

2 задача
uses crt;
var a,i,j,n:integer;
begin
writeln('Введите кол. суток');
read(a);
writeln('Количество часов в ',a,' сутках = ',a*24);
writeln('Количество минут в ',a,' сутках = ',a*24*60);
writeln('Количество секунд в ',a,' сутках = ',a*24*60*60);
end.

Информатика. выберите правильное написание формулы в msexcel: a) =b1b2(c4+c15) b) b1b2(c4+c15) c) =b1b2/(c4+c15)

MOGZ ответил