//<em>ax</em><em> + </em><em>b</em><em> = 0,</em><span> где </span><em>а и b</em><span> – любые числа.
var a,b,x:real; //инициализирует переменные a,b и x типа real, с плавающей точкой
begin; //начало программы
readln(a); //ввод a
readln(b); //ввод b
x:=-b/a; //находим корень
writeln(x); //выводим корень
end. //конец программы</span>
label nach;
uses crt;
var x,s:integer;
begin
s:=0;
repeat
nach:
write('vvedite x=');read(x);
if (x!=0) then begin writeln(x); s:=s+x; goto nach;end else s:=s+x;
until (x=0);
writeln('summa ravna=',s);
end.
Паскалевский вариант от меня.
Program Programma;
Uses crt;
var n, p: integer;
BEGIN clrscr;
write('n = ');
readln(n);
writeln;
if (n > 0) and (n <=100) then
begin
p:=sqr(n);
write('Ответ: p = ', p);
end
else
write('Число ненатуральное или превосходит 1000');
readln;
END.
//1
begin
for var i:=6 to 12 do print (i);
end.
//2
begin
for var i:=1 to 4 do writeln ('забота');
end.
//3
var sum: longint;
begin
for var i:=1 to 5 do inc (sum, readinteger('Введите число: '));
write ('Сумма пяти чисел: ', sum);
end.
//4
var sum, n: integer;
begin
for var i:=1 to 10 do
begin
n:=readinteger ('Введите число: ');
if (n mod 2)=0 then inc (sum, n);
end;
write ('Сумма четных чисел: ', sum);
end.
//5
var sum, r: integer;
begin
for var i:=1 to readinteger ('Введите n: ') do
begin
r:=readinteger ('Введите число: ');
if (r mod 3)=0 then inc (sum, r);
end;
write (sum);
end.
//6
begin
for var i:=0 to 9 do
if ((4204+10*i) mod 7) = 0 then writeln (i);
end.