Информатика, опубликовано 21.10.2019 14:27
Составьте программу, находящую сумму всех целых чисел от а до b включительно (a
Ответы
Ответ оставил: Гость
ответ:
program summaatob
var
a, b, s, i: integer;
begin
write ('a, b: ');
readln (a, b);
s : = 0;
for i : = a to b do
s : = s + i;
write ('s = ', s);
readln;
end.
Ответ оставил: Гость
Program pr_1;a:array [1..n] of real;
n, i:integer;
begin
readln(n)
for i := 1 to n do
begin
a[i] := readln()
if a[i] <0 then a[i] := a[i] - 5;
else a[i] := i;
end;
writeln(a);
end.
Ответ оставил: Гость
Пусть а - аснавание системы, тогда 14 = 1*а+4
42 = 4*а+2
100 = а*а
Если 14+42 = 100, тогда
1*а+4+4*а+2=а*а
решаем это квадратное уравнение (это просто и писать мне впадлу)
там будет 2 корня, один отрицательный - он не подходит, второй равен 6
Ответ оставил: Гость
Если задания по паскалю, то вот
Другие вопросы по информатике
Информатика, опубликовано 09.01.2019 16:01
Информатика, опубликовано 09.01.2019 16:01
Информатика, опубликовано 09.01.2019 16:01
Информатика, опубликовано 09.01.2019 16:01
