<span>Создание самого первого компьютера-1946
Создание первого отечественного компьютера-1957
Открытие радиосвязи-1895
Первый полет человека в космос-1961
Принятие христианства на Руси-988
Первое упоминание в летописи о Москве-1147
Начало Великой Отечественной войны-1941
Запуск первого искусственного спутника Земли-1957
Открытие Колумбом Америки-1492</span>
A=1; b=2
1+2<8 ⇒ истина;
1 шаг цикла.
a=a+1=1+1=2; b=b+2=2+2=4
2+4<8 ⇒ истина;
2 шаг цикла.
a=2+1=3; b=4+2=6
3+6<8 ⇒ ложь
s=3+6=9
Ответ: цикл выполнится 2 раза, переменные: a=3; b=6, s=9
Без проверок и прочего, все как написано в задаче. Если нужно было с проверками - напишите, переделаю :)
program Project1;
var
TotalA, TotalB, SoldA, SoldB : integer;
priceA, priceB, sum: real;
begin
Write(' Введите цену товара "А":');
Readln(priceA);
Write(' Введите количество товара "А" в начале рабочего дня:');
Readln(TotalA);
Write(' Введите количество проданного товара "А":');
Readln(SoldA);
Write(' Введите цену товара "Б":');
Readln(priceB);
Write(' Введите количество товара "Б" в начале рабочего дня:');
Readln(TotalB);
Write(' Введите количество проданного товара "Б":');
Readln(SoldB);
sum:= ((priceA*SoldA)+(priceB*SoldB));
writeln('Выручка от продажи двух товаров за день:', sum:5:2);
readln;
end.
Ответ:
1875 Кбайт
Объяснение:
Объем видеопамяти = 2*16*800*600 бит = 4*800*600 байт = 1875 Кбайт