Информатика

Вопрос/Задача:

По заданному номеру месяца будет напечатано его название и указать, количество дней в месяце (оператор выбора case). например: введите № месяца -> 1 это январь (дней - 31)

Ответы на вопрос

Ответ
Ответ разместил: Гость

№1

program z1;

var n: integer;

begin

write ('введите число n: ');

readln(n);

if (n mod 2 = 0) and (n div 100 < 1) and (n > 9) then write('данное число является четным двузначным') else if  (n div 100 < 1) and (n > 9) then write ('данное число не четное двузначное');

end.

 

№2

program z2;

var a, b, c, k: integer;

begin

k: =0;

writeln ('введите числа a, b и c: ');

readln(a,b,c);

if a< 0 then k: =k+1;

if b< 0 then k: =k+1;

if c< 0 then k: =k+1;

write('количество отрицательных чисел: ',k)

end.

Ответ
Ответ разместил: Гость

var a: real;

b: integer;

begin

readln(a);

b: =round(a*1000)mod 1000;

write(b div 100 + b mod 10 + b mod 100 div 10);

end.

Ответ
Ответ разместил: Гость

скор передачи=объём файла/время,отсюда  объём файла =скорость*время,т.е. 512000 * 16=8192000 бит,затем преводим все в кбайты: 8192000/8/1024=1000 кбайт

Ответ
Ответ разместил: Alina22511

дальше измени сама

var month: integer; beginreadln(month); if ((month > 0 ) and ( month < 13)) thencase month of 1 : writeln ('january (31 days) '); 2 : writeln ('fabruary (28 days) '); 3 : writeln ('march (31 days)'); 4 : writeln ('april (31 days) '); 5 : writeln ('fabruary (28 days)'); 6 : writeln ('march (31 days)'); 7 : writeln ('january (31 days) '); 8 : writeln ('fabruary (28 days) '); 9 : writeln ('march (31 days)'); 10 : writeln ('january (31 days) '); 11 : writeln ('fabruary (28 days) '); 12: writeln ('march (31 days)'); end else writeln('error'); readln; end.

Похожие вопросы

Вопросов на сайте: