4 года назад

Паскаль. Найти сумму корней квадратных из всех нечетных двузначных чисел

Знания

Информатика

1 ответ:

25Ирина19714 года назад

0 0

Var
S:real;
A:integer;
Begin
S:=0;
For A:= 11 to 99 do
if A mod 2 <> 0 then S:=S+sqrt(A);
WriteLn('S = ',S)
End.

Читайте также

Какой командой меняется цвет букв в редакторе сайтов (блокноте)

Иван Леонов

Вот ты например написал слово
 Привет! 
Чтобы изменить цвет всего слова, пишешь:
style="color:green;"> Привет! 
Если хочешь изменить только букву, то надо писать по букве в теге

0 0

4 года назад

Прочитать ещё 2 ответа

10. Как называются знания, которые представляют собой алгоритмы решения некоторых задач? В ответе введите прилагательное во множ

наталья четверик [50]

Такие знания называются процедурными.

0 0

4 года назад

Если при работе в программе Microsoft Office Word 2007 требуется применить стиль маркированных списков, для этого нужно использо

Наталья Барнова

Вариант 4
вкладку главная, группу Абзац

обычно выбирают Формат→Абзац

0 0

4 года назад

СРОЧНО,ОЧЕНЬ СРОЧНО Помогите написать программы: 1.Найти произведение целых десятичных чисел. количество задается с клавиатуры 2

TNM [1]

Program g;
var a,b,c,i:integer;
begin
writeln('Введите количество чисел');
readln(a);
c:=1;
writeln('Введите ', a, ' чисел(а)');
for i:=1 to a do
begin
readln(b);
c:=c*b;
end;
writeln('Произведение чисел=',c);
readln;
end.

Program g;
var a,b,c:integer;
begin
writeln('Введите 2 числа');
readln(a,b);
if (a+b)>0 then
c:=(a*a)+(b*b)
else
c:=(a+b)*(a+b);
writeln('Результат=',c);
readln;
end.

Третье задание не понял.

0 0

3 года назад

Работа с Паскаль Помогите Задание: Даны координаты точки на плоскости (x,y). Выясните, лежит ли эта точка внутри квадрата, две

Lenin374 [14]

{т.е. квадрат лежит на оси x начиная от 0 до 5, т.к. сторона квадрата =5, аналогично и с осью y, отсюда условия x>=0 x<=5 y>=0 y<=5}
var
x,y:real;
begin
readln(x,y);
if (x>0)and(x<5)and(y>0)and(y<5)then
writeln('попадает')
else
writeln('не попадает');
end.

0 0

4 года назад