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.
Закрась клетки между двумя линиями, робот!
А=247(8)=10100111
В=А9(16)=10101001
Ответ 1
⇔∈∫∵∑∵⇆∧↑∉,ω↑≈∉∈↑↑⊆↑⊅∴⊅∵∀⊂∑∞⊂∞⊃⊃∑∉∛∠∠㏑
Var a,b:real;
begin
readln(a,b);
if(sqrt(b)<a) then b:=b*5
else b:=0;
writeln(b, ' - второе число');
end.