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.
Програ́ммное обеспе́чение <span>(допустимо также произношение </span>обеспече́ние (ПО) — программа или множество программ, используемых для управления компьютером<span>.</span>
1) 458 -> 45
2) 45*2 = 90
3) 90 -> 9
4) 9*2=18
5)18*2=36
6)36*2=72
7)72->7
8)7*2=14
В диапазоне -32 до +32 находится 65 значений, для кодирования 1 значения потребуется 7 бит (2⁶ = 64 этого не хватит, а 2⁷ = 128)
40960*7 = 286720 бит = 35840 байт = 35 Кб
ответ: 35 Кб