4 года назад

Напишите программу которая вычитает значения вырожения y=x1/√2

Знания

Информатика

1 ответ:

альберт2 [307]4 года назад

0 0

Photomath вот это приложение

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

Дано пятизначное число, нужно вычислить сумму цыфр. Записать в порядке возрастания числа

evg117 [27]

Это часть про разложение на цифрыuses crt;
var a,b,c,d,e,x:integer;
begin
write('vvedi chislo');
readln (x);
a:=x div 10000;
b:=x div 1000 mod 10;
c:=x mod 1000 div 100;
d:=x mod 100 div 10;
e:=x mod 10;
writeln (' ',a,' ',b,' ',c,' ',d,' ',e);end.

0 0

1 год назад

Pascal. Цикл с предусловием. Построить таблицу соответствий между мерами. Начальное значение степени, шаг изменения этого значен

Павел12121

Var a:array[1..15] of integer; n:integer; i,k:real;
begin
writeln('введите начальное значение');
readln(i);
writeln('введите шаг изменения');
readln(k);
writeln('введите кол-во элементов');
readln(n);
while n<>0 do begin
writeln(i,' драхм = ',i*1.77185,'г = ',i*0.06249,' унций');
n:=n-1;
i:=i+k;
end;
end.

0 0

4 года назад

Сколько кодов можно составить из 8 бит

Даниил23123123123

N=2^8= 256 кодов

_________________

0 0

4 года назад

Информатика и ИКТ Рабочая тетрадь 6 класса №35 с 681чтобы сварить суп ......иметь воду1необходимо2достаточно 3 необходимо и дост

Catherine69

Информатика и ИКТ Рабочая тетрадь 6 класса №35 с 68

1чтобы сварить суп необходимо иметь воду

0 0

4 года назад

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

Задача 4.Напишите программу ,которая в последовательности целых чисел определяет их количество и подсчитывает сумму положительны

ADM1RAL

Var x,k:integer;
begin 
k:=0; 
repeat 
writeln('Введите число'); 
read(x); 
if (x>0) and (x<=256) then k:=k+1; 
until x=0; 
writeln('Количество положительных чисел <=256 = ',k); 
end.

0 0

3 года назад