Задать вопрос!

Задать вопрос!

Все категории

4 года назад

8

Вывести значения квадратного корня целых чисел в диапозоне от 1 до N.

N-целое положительное число , введенное с клавиатуры . В паскале

Информатика

1 ответ:

Александр 7 [2]4 года назад

0 0

Var N:integer;
Begin
Write('N = ');
ReadLn(N);
For N:= 1 to N do
WriteLn('√',N,' = ',Sqrt(N))
End.

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

Язык паскаль Даны натуральное число N и вещественные числа b1, b2, …, bn. Определить сумму тех вещественных чисел, которые больш

Элеонора Пална [219]

Program n_1;

var n, i:integer;P, b, s: real;

begin

read(n, P);

s:=0;

for i:=1 to n do begin

read(b);

if b>P then s:=s+b;

end;

writeln(s:0:10);

end.

0 0

4 года назад

В этой цепочке предыдущая буква перед каждой Y – дой Ү — буква R. в этой цепочке четвёртая буква после каждой W - буква YR WR N.

lyudmila78

Ответсамсам пиши плиз

Объяснение:

0 0

4 года назад

Pascal. Сумма квадратов цифр некоторого двузначного числа на 1 больше утроенного произведения этих цифр. После деления этого дву

RedPants

For i:=1 to 9 do
for j:= 0 to 9 do
if((i*i+j*j-3*i*j=1)and((i*10+j)div(i+j) = 7)and((i*10+j)mod(i+j) = 7) then write('Искомое число',i*10+j);
end.

0 0

4 года назад

Скорость передачи данных через ADSL-соединение равна 1024000 бит/с Через данное соединение передают файл размером 2500 Кбайт Опр

Виктория Дроздова

$v=2500*1024*8=20480000$ бит
$t=20480000/1024000=20$ сек
Такие дела...

0 0

4 года назад

РЕБЯТА ПОМОГИТЕ ПО ИНФОРМАТИКЕ, ОЧЕНЬ НУЖНО !!! Написать программу на языке паскаль, которая переведет число из десятичной систе

Свара

Вот тебе для двоичной системы, дальше сам додумай,я просто в переводах в системы счисления не силён,только двоичную толком знаю))

Program sist;
var a,b,f:integer;
c,p,i:string;
begin
readln(a); //вводим число
b:=2; //это у нас будет степень, сам потом переделаешь,чтоб вводить её тоже
while a>0 do //тут задаём условие (пока a>0 выполняем действия:)
begin //начало скобки(должен знать)
if a mod b=0 then c:='0' else c:='1'; //проверяем условие(если остаток от деления а поделить на 2 равен 0 то строка равна символу 1 иначе символ 0)
a:=a div b; //делим а на b без остатка
i:=i+c; //присваиваем строке i результат: строка i+результат строки c
end; //конец скобки
for f:=length(i) downto 1 do //начинаем цикл от большего к меньшему(от количества символов в строке i до 1)
p:=p+i[f]; //(к строке p прибавляем символ строки i) это относится к нашему циклу
i:=p; //тут понятно думаю
writeln(p, '(',b,')'); //выводим результат
<span>end.</span>

0 0

4 года назад