Запишите программу, которая будет предлагать пользователю ввести любые два числа, складывать их и выводить на экран ответ в следующем виде: вы ввели: x,y x+y= программа !
var x,n,p:longint; i:integer; begin readln (x,n); p:=1; for i := 1 to N do p:=p*x; writeln(x,' в степени ',n,' равно ',p ); end.
2. Для цикла While var x,n,p:longint; i:integer; begin readln (x,n); p:=1; i:=1; while i<=n do begin p:=p*x; i:=i+1; end; writeln(x,' в степени ',n,' равно ',p ); end.
3. Для цикла Repeat
var x,n,p:longint; i:integer; begin readln (x,n); p:=1; i:=1; repeat p:=p*x; i:=i+1; until i>n; writeln(x,' в степени ',n,' равно ',p ); end.
summa1 - только для целых
summa2 - для любых
Объяснение:
program summa1;
var
x,y,s:integer;
begin
write ('Введите х ');
readln(x);
write ('Введите y ');
readln(y);
writeln ('Вы ввели: x=',x,' ,y=',y);
s:=x+y;
write ('x+y=',s);
readln;
end.
program summa2;
var
x,y,s:real;
begin
write ('Введите х ');
readln(x);
write ('Введите y ');
readln(y);
writeln ('Вы ввели: x=',x:5:2,' ,y=',y:5:2);
s:=x+y;
write ('x+y=',s:10:2);
readln;
end.