Возвести в 6 степень введенное число через цикл (использовать тип longint при необходимости).по паскалю

Знания

Информатика

1 ответ:

Эльвира19924 года назад

0 0

Var num, deg: integer;res: real;i: byte;begin write('Число: '); readln(num); deg:=6; res := 1; i := 0; while i < abs(deg) do begin res := res * num; i := i + 1 end; if deg < 0 then res := 1 / res; writeln(res); readlnend.

Читайте также

Как называется именованная совокупность файлов, и подкаталогов?

vasilii73 [7]

Папка с файлами, так?

0 0

4 года назад

Напишите число x для которого истинно высказывание НЕ ( X<6) И (X<7) ПОЖАЛУЙСТА ПОМОГИТЕ

k32globus [14]

Ответ:

Объяснение:

НЕ ( X<6) И (X<7)

Немного упростим, заменив отрицание.

НЕ ( X<6) - это утверждение "неверно, что x < 6". А какое верно? Конечно, обратное, x ≥ 6. Его и запишем.

X ≥ 6 И X < 7

Что же это за число, которое не меньше 6, но меньше 7? Если оно целое, то только 6.

0 0

4 года назад

ПАСКАЛЬ, строка символовНапишите программу, которая:а) определяет, сколько раз встречается в строке символ 'A'б) заменяет символ

Александр Фомич [4]

Program proga;
var str:string;
i,counter,pos:integer;
k:char;
a:array[1..255] of char;
begin
k:='*';
counter:=0;
writeln('Введите строку');
readln(str);
for i:=1 to length(str) do begin
if str[i]='А' then begin
inc(counter);
Delete(str,i,1);
Insert(k,str,i);
end;
end;
writeln('Количество символов А ',counter);
for i:=1 to length(str) do begin
a[i]:=str[i];
if a[i]='В' then
a[i]:=' ';
write(a[i]);
end;
end.

0 0

4 года назад

Прочитать ещё 2 ответа

ПОМОГИТЕ РЕШИТЬ!!! СРОЧНО!!! 45 БАЛЛОВ!!!

СОКОЛАР [2]

1) 15 (A-B-F-Z)

2) 17 (A-B-D-E-F-Z или A-B-D-E-G-Z)

3) 15 (A-B-F-Z)

0 0

4 года назад

В одной из кодировок Unicode каждый символ кодируется 32 битами. Определите размер следующего предложения в данной кодировке Тё

Lena333