Ответ:
Объяснение:
Меняем К на О и наоборот и т.д., буквы которых нет в ключе не меняем
Ф.К.Л.М.Ш.Я.З.Л.К.В.Ш.Б.З.Е
Ф.О.Р.М.А. Т.И.Р.О.В.А.Н.И.Е
Var
i,k,s:integer;
begin
k:=0; s:=0;
i:=7;
Writeln('Числа на интервале [7;100], кратные 7:');
while i<=100 do begin
Write(i,' ');
s:=s+i; Inc(k);
i:=i+7
end;
Writeln;
Writeln('Сумма этих чисел равна ',s,', количество равно ',k);
end.
Результат выполнения программы
Числа на интервале [7;100], кратные 7:
7 14 21 28 35 42 49 56 63 70 77 84 91 98
Сумма этих чисел равна 735, количество равно 14
Без проверок и прочего, все как написано в задаче. Если нужно было с проверками - напишите, переделаю :)
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.
Потому что ее употребляют в различных коммуникациях.
Mod - взятие остатка от деления (35 mod 10 == 5); div - взятие целой части от деления (35 div 10 == 3). Пишу сразу заполненные таблицы:
1) а = 23
p s p>0
23 0 true
2 3 true
0 5 false => s = 5
2) a = 32
p s p>0
32 0 true
3 2 true
0 5 false => s = 5
3) a = 109
p s p>0
109 0 true
10 9 true
1 9 true
0 10 false => s = 10