Кому принадлежит фраза: Весь мир держится на трех китах: вещество, энергия и информация.

Знания

Информатика

1 ответ:

лика55 [1]4 года назад

0 0

Галина Исаковна Райнус

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

Написать программу нахождения квадрата числа

Valkiria9720 [17]

var a,res:integer;

begin

writeln('Введите число');

readln(a);

res:=sqr(a);

writeln('Квадрат числа,'a', равен,'res',');

readln;

end.

0 0

4 года назад

С клавиатуры вводится произвольное натуральное число. Найти произведение нечётных цифр числа. Помогите срочно прошу !!!!!

Александр262

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

begin
var n:=ReadInteger('n=');
var p:=1;
while n>0 do begin
 var d:=n mod 10;
 if d.IsOdd then p*=d;
 n:=n div 10
 end;
Writeln('Произведение нечетных цифр числа равно ',p)
end.

Пример
n= 53892
Произведение нечетных цифр числа равно 135

0 0

2 года назад

5.3.3 Помогите плс! Программа и вывод плс

Ирина 79 [24]

Var arr:array of char;
var c:char = chr(63);
var str:String;
begin
WriteLn('Введите строку:');
Read(str);if str.length<> 6 then
WriteLn('Длина строки больше или меньше 6.')
else
begin
arr:=str.ToCharArray();
arr[1]:= c;
arr[4]:= c;
arr[5]:= c;
str:= '';
for var i:= 1 to arr.Length do
str+=arr[i-1];
WriteLn(str);
end;
end.

Ввод:
знания

Вывод:
з?ан??

0 0

4 года назад

Определить объем памяти для хранения цифрового аудиофайла, время звучания которого 5 мин при частоте дискретизации 44,1 КГц и гл

mesh

44.1 Кгц=44100 гц
5 мин=300сек
44100*16*300=216680000бит/8=26460000 байт/1024=25839,84 Кб/1024=25,23 Мб

0 0

4 года назад

ПОМОГИ ПЛИЗЗЗЗЗ На одной улице стоят в ряд 4 дома,в каждом из них живет по одному человеку.Их зовут Алексей,Егор,Виктор и Михаи

Виталий Б

Алексей - рыбак, Егор - фермер, Виктор - ветеринар, а Михаил пчеловод.

Живут они так: МЕАВ

0 0

4 года назад