Составить программу в Паскале

Знания

Информатика

1 ответ:

ВалентинаВВВ4 года назад

0 0

Var n:integer;
Begin
Read(n);
Case n of
1,3,5,7,8,10,12:n:=31;
4,6,9,11:n:=30;
2:n:=28;
else n:=0;
End;
Write(n)
End.

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

Пожалуйста Срочно помогите! Завтра у меня контрольная! 1) Перевидите в байты(б) : 12 2) Переведите в килобайты (Кб) : 81920бит

Вася111123455 [17]

1) 12 чего?
2) 81920 бит=81920/8/1024=10 Кб
3) 8 Гб=8*1024*1024=8388608 Кб
4) 1.048.576. Кб=1048576/1024/1024=1 Гб
5) N=8
6) 2 бита
7) 1*8=8 байт
8) 1,44=1,44*1024*1024=1509949,44 байт
1509949,44 /1800≈839 страниц
9)
10) одинаково

0 0

4 года назад

Дано слово. Записать каждый символ по два раза. Формат ввода: s - слово Формат вывода: s1 - новое слово Пример ввода: дождь П

Вячеслав2626 [37]

Var s,s1:string;
i:integer;
begin
write('Введите слово: ');
readln(s);
s1:='';
for i:=1 to length(s) do s1:=s1+s[i]+s[i];
writeln(s1);
end.

Пример:
Введите слово: дождь
ддоожжддьь

0 0

4 года назад

Срочно!!!ППЛИЗ!!!УМАЛЯЮ!!!

Alexander24

Две диаграммы на одном листе

0 0

4 года назад

3 В таблице приведены запросы к поисковому серверу, условно обозначенные буквами от А до Г. Расположите запросы в порядке возра

В Роман [7]

В - > Б - > А - > Г. Добавление логической операции И уменьшает количество запросов.

0 0

4 года назад

Определите, какие высказывания являются тождественно истинными: A и B → C Не A → A или B (A → B) → ((A → C) → (A → B и C))

Дима1981

Ни первое, ни второе не подойдут, тут даже преобразовывать не надо. Конечно, все самое интересное в длинном выражении. Его преобразование во вложении.

Ответ: 3) (A → B) → ((A → C) → (A → B и C))

0 0

3 года назад