Сумма,произведение и по отдельности единицы, десятки и сотни
program A1;
Var a, d, b, c,r,t:Integer;
begin
Write(' введите трех значное число ' ) ;Read(a);
d:=a div 100;
c:=a mod 100;
c:=c div 10;
b:=a mod 100;
b:=b mod 10;
t:=d+c+b;
r:=d*c*b;
WriteLn(' число единиц = ', b);
WriteLn(' число десятков = ', c);
WriteLn(' число сотый = ', d);
WriteLn(' сумма его цифр = ', t);
WriteLn(' произведение его цифр = ', r);
end.
Площадь и периметр
program f33;
Var a, b, P, S:Real;
begin
Write('а = '); Read(a);
Write('b = ') ;Read(b);
S:=a*b;
P:=(a+b)*2;
WriteLn('S = ', S);
WriteLn('P = ', P);
end.
Ответ:
1-2-3-4
2-1-3-4 Можно и так, но если сначала вскипятить воду, а потом уйти искать заварку, вода может остыть
Объяснение:
Поставь лучший ответ пожалуйста
<span>1 Битовая структура определяет первое свойство внутренней памяти компьютера — дискретность. Дискретные объекты составлены из отдельных частиц. Например, песок дискретен, так как состоит из песчинок. «Песчинками» компьютерной памяти являются биты.</span>
<span>2 СD, DVD, flash-накопители, дискеты, жесткий диск</span>
<span>3 СD, DVD, СD-R, DVD-R, СD-RW, DVD-RW, Blu-Ray, HD-DVD</span>
Компьютера)))))))))))))эээх как же легко
Program test;
var max,n:integer;
max:=0;
while n<>0 do// по окончанию ввода последовательности надо поставить '0'
begin
if max<n then max:=n;
end;
writeln(max);
end.