-
найти площадь окружности,если радиус равен 10 см.
-
Предмет:
Алгебра -
Автор:
arabellakoch - 5 лет назад
-
Ответы 3
Еще вопросы
-
вычисли:1) 7дм1см+2дм9см-34см 2)5м-1м8дм+4м5дм
-
Предмет:
Математика -
Автор:
kaylynynsc - 5 лет назад
-
Ответов:
2 -
Смотреть
-
-
Open the brackets to read what happened with Mary in summer, then check in pairs Did Mary have a fun summer
-
Предмет:
Английский язык -
Автор:
princessxmhh - 5 лет назад
-
Ответов:
0 -
Смотреть
-
-
В чём проблема выдаёт ошибку 7 строчка ((помогите)) PascalABC
program калькулятор_степеней;
var x,n:integer;
var c,R:real;
var u,s,ns,ss:boolean;
begin
writeln('вычисление степеней');
((readln(s);))
if ss=true then begin
ns:=false;
s:=false
end;
if ss=false then begin
writeln('вычисление суммы');
readln(s);
if s=true then ns:=false
else begin
writeln('вычисление разности');
readln(ns);
end;
end;
if (s=false)and(ns=false)and(ss=true) then begin
writeln('основание степени');
readln(c);
writeln('показатель степени');
readln(n);
u:=false;
if (n<=0)and(c=0) then begin
u:=true ;
end;
if (n>=1)and(u=false) then begin
R:=c;
x:=2;
while x<=n do
begin
R:=R*c;
x:=x+1;
end;
end;
if (n=0)and(u=false) then R:=1;
if (c=0)and(u=false) then R:=0;
if (n<0) then begin
R:=1;
x:=-1;
while x>=n do
begin
R:=R/c;
x:=x-1;
end;
end;
if u=false then begin
writeln('результат');
writeln(R);
end;
if u=true then writeln('не определено');
end;
if (s=true)and(ns=false)and(ss=false) then begin
writeln('введите слогаемые(через пробел)');
readln(R,c);
R:=c+R;
writeln('результат');
writeln(R);
end;
if (s=false)and(ns=true)and(ss=false) then begin
writeln('введите уменьшаемое и вычитаемое(через пробел)');
readln(R,c);
R:=R-c;
writeln('результат');
writeln(R);
end;
end.-
Предмет:
Информатика -
Автор:
gemmagzfc - 5 лет назад
-
Ответов:
1 -
Смотреть
-
-
делфи, срочно, запрогайте это, умоляю на делфи
По количеству баллов, набранных на ЕГЭ ,вывести оценку для аттестата (100-отлично)-
Предмет:
Информатика -
Автор:
marcel - 5 лет назад
-
Ответов:
2 -
Смотреть
-
Топ пользователей
-
Fedoseewa27
35934 -
Devilian
2792 -
Pikachu
2228 -
hobbesbowers
2116 -
kaylynnbarron676
1818 -
女fei
1240 -
yulia-kaplina
1158 -
Poinntt
946 -
Bars
930 -
Queenmagic18
770
How much to ban the user?
1 hour
1 day
100 years