Uses crt; var k: longint

Download 15.18 Kb.

Sana	06.02.2023
Hajmi	15.18 Kb.
	#1171659

Bog'liq
Документ Microsoft Word

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22

uses crt;
var k:longint;
function digitcount(k:longint):integer;
var kol:integer;
begin
kol:=0;
while k>0 do
begin
inc(kol);
k:=k div 10;
end;
digitcount:=kol;
end;
BEGIN
clrscr;
writeln('vvedite 4islo');
readln(k);
writeln('V nem cifr - ',digitcount(k));
readkey;
end.

Описать функцию PowerA3(A), возвращающую третью степень числа A (A — вещественный параметр). С помощью этой функции найти третьи степени пяти данных чисел.

Download 15.18 Kb.

Do'stlaringiz bilan baham: