компютерная техника в быту – верный людей. сложно представить жизнь без таких верных друзей как утюг, пылесос, холодильник, телевизор, магнитофон, миксер, чайник, пароварка, компьютерная техника, стиральная машина… однако, , одним из наиболее важных элементов является стиральная машина.
Ответ дал: Гость
var h,a: integer;
begin
a: =1;
repeat
h: = h+3;
a: =2*a;
writeln('прошло часов - ',h,', амеб - ',a)
until h> =30;
readln;
end.
Ответ дал: Гость
program a1;
uses crt;
var a: array[1..31] of longint; k,i: integer;
begin
clrscr;
for i: =1 to 31 do begin
write('введите температуру ',i,' числа: ');
readln(a[i]);
if a[i]< 0 then k: =k+1;
end;
writeln(' количество дней в которые были заморозки = ', k);
readln
end.
p.s. если паскаль abc, то выделенное писать не обязательно
Популярные вопросы