Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
vara,b: integer; c: real; beginwriteln ('1'); read (a); writeln ('2'); read (b); c: =(a/1)/(1/b); writeln (c); end.
1)
s : = 0;
for i : = 1 to k do
begin
if i mod 2 < > 0 then
s: = s + i;
end;
2)
for i : = 5 to 55 do
writeln(i);
3)
s : = 1;
for i : = n to m do
s: = s * i;
4)
for i : = 10 to 15 do
обрамления там везде одинаковые
иванов парикмахер, петров плотник, сидоров мельник, гришин почтальон, алексеев маляр. и 2413 маляр 1
п 142 мельник 2
с 13 плотник 3
г 12 почта 4
а парикмахер 5
Популярные вопросы