Москва - Толя, Санкт-Петербург - Витя, Новгород - Юра, Пермь - Коля, Томск - Алёша.
Ответ:
Объяснение:-взять арбуз
-взвесить его на весах
-взять (70*масса арбуза) тенге у покупателя
-дать арбуз покупателю
A)<span> МАГЖВБЕДЗИКЛ</span>
s:=0; //М
for i := 1 to N do //АГЖ
begin //В
read(x); //Б
if x > 0 then //ЕДЗ
s := s + x; //И
end; //К
write(s); //Л
var s: real;
begin
readln(s);
s := s - (0.12 + 0.01 + 0.01) * s;
writeln('Сумма : ', s);
end.
Var a,b,c:integer;
begin
write('Введите двузначное число: ');
readln(a);
b := a div 10;
c := a mod 10;
writeln('Сумма: ', b + c);
writeln('Произведение: ', b*c);
writeln('Перестановка: ', c,b);
end.