1.Убрать вещи на места
Заправить кровать
Подмести пыль
Помыть пол
Протереть пыль
2.(Если на кухне.)
Помыть посуду
Протереть стол
Убрать еду на места.
Подмести пол
Помыть пол.
я не помню паскаль:(
Объяснение:
вводишь число a
через if проверяешь условие
if(a>7) то a:=a*10
else if (a<7) то а:=а+7
В общем, на программу с while:
Program solid;
var n,i,s:real;
begin
read(n);
writeln('кол-во дней=',n);
i:=1;
s:=0;
while i<=n do
begin
i:=i+1;
s:=s+1;
end;
writeln('Вася пробежит ',s,' км за тренировочный цикл');
end.<span>
</span>
не забываем - нумерация в массиве начинается с 0
var
d : array of integer := new integer[30];
n : integer := -1;
i : integer;
begin
d := arrRandom(30, -100, 100);
repeat
n += 1;
if d[n] > 0 then i += 1;
until (n = 29) or (i = 4);
writeln('массив: ', d);
writeln('четвертый положительный элемент массива d[', n, ']=', d[n]);
end.
Текстовые: leto.doc dog.txt cat.jpg music.txt otvet.txt
Графические: aaa.bpm mama.jpg cat.jpg game.bpm
Программы: boy.exe box.exe