Информатика, опубликовано 23.05.2019 00:20
Двузначное число дается. определите, равен ли квадрат этого числа расчетной сумме кубов его чисел. например, 48 является правильным для числа, а 52 числа являются отрицательными. как вычислит и отчет как вычислен.
Ответы
Ответ оставил: Гость
Покажи задание плииииииизОтвет оставил: Гость
Program pr_1;var a:array [1..n] of integer;
i, c, n:integer;
begin
readln(n)
for i:=1 to n do
begin
a[i] := random(150, 180);
c := c + a[i];
end;
writeln(c / n);
end.
Ответ оставил: Гость
2 И 45 И НАРИСУЙ ЭТО ВСЕ И ВСЕ БУДЕТ НАЙСОтвет оставил: Гость
Program maximum;Var a, max, k, i: integer;
Begin
max:=0;
k:=0;
For i:=1 to 4 do
begin
Readln(a);
if (a > max) then
Begin
max:=a;
k:=1;
end else begin
If (a = max) then
k:=k+1;
end;
end;
end;
Writeln(max,k);
end.
Другие вопросы по информатике
Информатика, опубликовано 09.01.2019 16:01
Информатика, опубликовано 09.01.2019 16:01
Информатика, опубликовано 09.01.2019 16:01
Информатика, опубликовано 09.01.2019 16:01
