Очень очень и очень много Задача 1
Вводятся два числа с клавиатуры. Считается их произведение. Если оно меньше 100, то результат вводиться в квадрат. в противном случае, извлекается квадратный корень
Задача 2
Дано Вещественное число А и целое число N. Используя цикл, найти сумму. 1+А^1+А^2+А^3+..+А^N
Дана896
3
25.03.2021 16:07
0
Другие вопросы по теме Информатика
baby2525
29.12.2020 18:13
Ochinchin
29.12.2020 18:18
alina130410
05.05.2020 15:50
Kikinaxxxxxx
05.05.2020 15:51
katenautkina69
05.05.2020 15:59
AnaDanik
03.09.2019 07:50
follizy
03.09.2019 07:50
valikrulit1234
07.06.2019 18:20
makskos4444
07.06.2019 18:20
Asya0199
10.04.2021 08:25
Популярные вопросы
- На берегу какой реки сформировалось государство Древний Египета ВолгаАмазонкаНил...
3 - 12. Как называется и для чего использовано Лермонтовым следующее изобразительное...
3 - Задані вершини чотирикутника ABCD: A(3;-2),B(-5;-4) ,С(4;3,5),D(-3;7). знайти...
3 - Який дослідник Південної Америки здійснив сходження на вулкан Чимборасо? Ю Христофор...
2 - Когда Напали он напал на Москву...
3 - Только глаголы начиная с предложения John (to listen)...
2 - Не выполня пострроения найдите абсциссу тосеи пересичения графиков функций y=-3x+4...
2 - Qurğuşunun ərimə temperaturu 327 °C -dir Bu tempurator necə kelvindir. A) 300°K...
1 - с русским класс ОЧЕНЬ НАДО...
3 - Сочинить сказку или рассказ про действия с суммами нескольких слагаемых...
3
1
var a,b:integer; begin readln(a,b); writeln(2*a*b*ord(a=b)+a*b*ord(a<>b)); readln end.
Объяснение:
2
var a, s: real;
i, n: Integer;
begin
readln(n);
readln(a);
s := 1;
for i := 1 to n do
s := s-a;
a := -a*a;
end;
end;