Qbasic
CLS
Input "Либите ли вы мороженное"; A$
IF A$=да Then
Print "Ну чтож поедим вместе."
else
Print "Прекрасно отдайте свою порцию мне."
End if
end
1)Моем ингридиенты
2)Чистим
3)Избавляемся от шкурок, хвостиков
4)Нарезаем
5)Ставим воду закипать
6)Солим воду
7)Кладем в воду ингридиенты
8)Добавляем специи
9)Сливаем воду
10)Серверуем блюдо и подаем к столу
Type
LinMass = array [1..1000] of Integer;
var
A: LinMass;
N, i, j: Integer;
begin
Write('Количество элементов массива: ');
ReadLn(N);
for I := 1 To N Do
begin
Write('Введите A[', I, '] ');ReadLn(A[i]);
end;
i := 1;
while (i <= n) do
if (A[i] >= 100) and (A[i] <= 999) and (A[i] mod 2 = 0) and (A[i] mod i = 0) then begin
for j := i + 1 to n do
A[j - 1] := A[j];
n := n - 1
end
else i := i + 1;
for I := 1 To N Do
write(a[i]:6);
end.
Я захожу в квартиру захожу в зал чтобы отдохнуть я иду на кухню чтобы приготовить поесть Я захожу в свою комнату чтобы сделать уроки