//PacsalABC.Net
// (c) NaaMan

var
   s : integer;
begin
   write('Введите число (10-999): ');
   readln(s);

   writeln('В числе ', s, ' ', s.ToString.Length, ' знака');

   write('Число ', s);
   if s mod 3 = 0 then
       write(' кратно')
   else
       write(' не кратно');
   writeln(' трём')
end.

0 0

4 года назад

Составьте программу. (Pascal). ПОЖАЛУЙСТА!!!! Заниматься программированием мы будем по рабочим дням после 18 часов вечера. Введи

Петра2

n = int(input('Ведите время: '))

i = int(input('Введите день недели: '))

if 18 <= n <= 24 and 1 <= i <=5:

print('Время кодинга пришло')

else:

print('Время кодинга не пришло')

0 0

4 года назад

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

Помогите пожалуйста Определить значения переменных после выполнения фрагментов программ a:=53 b:=14 ifa<=b then x:=a+belse

Ole82

2) Т.к у нас идет алгоритм с 1 по 9 значит выполняем его 9 раз
Y=0
1) 0+1=1 и так девять раз
1+1=2
2+1=3
3+1=4
4+1=5
5+1=6
6+1=7
7+1=8
8+1=9
Ответ:9
2) Здесь вместо значений подставлям цифры,получается
C:=7+5*3=22
A:=22:2*5=55
Ответ: 55

0 0

4 года назад

Какое из перечисленных ниже устройств является устройством вывода компьютер

яна1927

Монитор, калонки, принтер, проектор

0 0

4 года назад