Var a,s:integer;
begin
s:=0;
a:=9;
repeat
a:=a+2;
s:=s+a;
until a=99;
writeln('s = ',s);
end.
Результат:
s = 2475
1)Скорость передачи на далекие растояния!
2)Быстрая передача сообщения!
3)Собеседник может сразу ответить!
Задание 1:
Строку 1 и столбец A заполняете единицами. В ячейку B2 вводите формулу =A2+B1, затем её копируете (делаете протяжку)
Задание 2:
Строку 1 и столбец A заполняете по образцу (0 и 1). В ячейку B2 вводите формулу =A1+B1, затем её копируете (делаете протяжку)
program chisla;
var summa,n,y,i:longint;
begin
writeln('daite N'); readln(n);
for i:=1 to n do summa:=summa+i;
{etot tikl dayot summu dlya nomera N, primer: n=5, summa=1+2+3+4+5=15;}
y:=(n+1)/2;
if y>summa then writeln('Y > summa N ') else
if y=summa then writeln('Y = summa N') else writeln('Y < summa');
readln;
end.
ya tak ponyal zadachu, esli ne tak, proshu popraviti. spasibo
Var x1,x2,y,p:integer;
begin
write('Введите четырехзначное число: ');
readln(y);
x1:=y div 1000;
x2:=y mod 10;
p:=x1*x2;
writeln('Произведение крайних цифр: ',p)
<span>end.</span>