Регистрация
anitabmw
24.07.2020 00:12
Информатика
Есть ответ 👍

65 БАЛЛОВ Написать программу паскаль.
Дано n натуральных чисел, которые вводятся по одному. Найти: произведение чисел.

161
277
Посмотреть ответы 2

Ответы на вопрос:

лейоа
лейоа
4,4(56 оценок)

Код на PascalABC.NET:

var a: real;

begin

var a := ReadReal('Введите a: ');

var a2,a4,a8: real; // вс переменные

var a2 := a * a;

var a4 := a2 * a2;

var a8 := a4 * a4;

Println(a,$'{a} в степени 8 = {a8}');

end.

-

Program n1;

var n,k,i: integer;

begin

k:=0;

readln(n);

for i:=10 to 99 do if (i mod 10)*(i div 10)=n then k:=k+1;

write(k);

end.

woof3228
woof3228
4,8(96 оценок)
A)var k,n: integer; begin read(k); if k div 7=k/7 then n: =7 else if k+1 div 7=k+1/7 then n: =6 else if k+2 div 7=k+2/7 then n: =5 else if k+3 div 7=k+3/7 then n: =4 else if k+4 div 7=k+4/7 then n: =3 else if k+5 div 7=k+5/7 then n: =2 else if k+6 div 7=k+6/7 then n: =1; writeln(n); end. б) var k,n: integer; beginread(k); if k-1 div 7=k-1/7 then n: =7 elseif k div 7=k/7 then n: =6 elseif k+1 div 7=k+1/7 then n: =5 elseif k+2 div 7=k+2/7 then n: =4 elseif k+3 div 7=k+3/7 then n: =3 elseif k+4 div 7=k+4/7 then n: =2 elseif k+5 div 7=k+5/7 then n: =1;   writeln(n); end.

Популярно: Информатика