program z1;
var a,m,n:integer;
begin
writeln ('введите трехзначное число ');readln(a);
writeln ('введите число m ');readln(m);
if (a mod m)=0 then writeln ('числа кратные m',a) else writeln('не кратны');
if ((a mod 10)=3)or(((a div 10)mod 10)=3)or((a div 10)=3) then n:=n+1;
writeln('количество чисел содержащих число 3',n);end.

0 0

4 года назад

Готовясь к состязаниям, лыжник в первый день пробежал 10км., затем каждый день увеличивал расстояние на 2 км. На какой день трен

nadyasilkina95 [7]

@php (логику можно интерпретировать на любой язык, просто не указано какой язык программы)
$day = 1;$start = 10;
while ($start < 18){ $start = $start + 2; $day++;}echo $day;

0 0

4 года назад

Дано целое число N (> 0). Вывести сумму 2 + 1/(2!) + 1/(3!) + ... + 1/(N!) (выражение N! — "N факториал" — обозначает произве

роман7373

Var n,i:integer; f:longint; s:real;
begin
write('n = ');
readln(n);
f:=1; s:=2;
for i:=2 to n do
begin
f:=f*i;
s:=s+1/f;
end;
writeln('s = ',s);
end.

Пример:
n = 10
s = 2.71828180114638

0 0

2 года назад

Информационный объём Сообщения -2Кбайта второго 128 бит сколько байт информации содержит первое и второе сообщение вместе

molherr [50]

2 Кбайт = 2*1024 байт = 2048 байт
128 бит = 128/8 байт = 16 байт
2048+16 = 2064

0 0

4 года назад