Этого года человек с кем то говорит по телефону
Ответ:
Совокупность знаков, с помощью которых записываются числа называется: B
Program n1;
var a: array[1..30] of integer;
n,i: integer;
function st(i: integer): integer;
begin
st:=1;
for i:=1 to i do st:=st*2
end;
begin
readln(n);
for i:=1 to n do a[i]:=st(i);
for i:=n downto 1 do write(a[i],' ');
end.
<span>дверь - дверной проем ; открывать - ремонтировать</span>
<span>окно - стекло ; мыть - разбивать</span>
автомобиль - сидение ; покупать - пачкать
1. найти сумму чисел с 1 до n
Program ffff;
Uses crt;
var n,i,s:integer;
begin
writeln ('Кол-во цифр');
readln (n);
for i:=1 to n do
s:=s+i;
writeln (s);
end.
Если сегодня четное число месяца , то я беру с собой на 10 рублей больше чем обычно
Program ffff;
Uses crt;
var n,i:integer;
begin
writeln ('Сколько я беру обычно');
readln (n);
writeln ('Какое сегодня число');
readln (i);
if i mod 2 = 0
then n:=n+10;
writeln (n,' рублей я сегодня беру');
end.