Программа на паскале
var i,s:integer;
begin
s:=0;
for i:=15 to 50 do s:=s+i;
writeln('s = ',s);
end.
Результат:
s = 1170
Короче как-то так, будут вопросы пиши в ЛС)
Pascal
var n: integer;
a: 0..9; b: boolean;
begin
write('Введите число N: ');
readln(n);
if n>0 then
begin
write('Введите цифру A: ');
readln(a);
if (a>=0) and (a<=9) then
begin
while (n>1) do
begin
if a=n mod 10 then begin b:=true; break; end else b:=false;
n:=n div 10;
end;
writeln(b);
end else writeln('Введите цифру A от 0 до 9');
end else writeln('Введите другое число, больше 0!');
end.
uses crt;
var
x, y, A1, A2, B1, B2, C1, C2:real;
begin
clrscr;
writeln('enter A1:');
writeln('enter A2:');
writeln('enter B1:');
writeln('enter B2:');
writeln('enter C1:');
writeln('enter C2:');
read(A1,A2,B1,B2,C1,C2);
if (A2 * B1 - A1 * B2) = 0 then
writeln('Программа не имеет решений')
else
begin
x:= (B1*C2-B2*C1) / (A2*B1-A1*B2);
y:= (A2 * C1 - A1 * C2) / (A2 * B1 - A1 * B2);
end;
writeln('x=', x:10:2);
writeln('y=', y:10:2);
end.