Uses crt; var k: longint


Download 15.18 Kb.
Sana06.02.2023
Hajmi15.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:




Ma'lumotlar bazasi mualliflik huquqi bilan himoyalangan ©fayllar.org 2024
ma'muriyatiga murojaat qiling