4 года назад

Составить программу для вычисления числа дней в месяце по введенному номеру месяца

Знания

Информатика

1 ответ:

Каринка884 года назад

0 0

var a:integer;

begin

writeln ('Vvedite nomer mesuaca');

read (a);

if (a=1) then writeln ('30');

if (a=2) then writeln ('28');

if (a=3) then writeln ('30');

if (a=4) then writeln ('31');

if (a=5) then writeln ('30');

if (a=6) then writeln ('31');

if (a=7) then writeln ('30');

if (a=8) then writeln ('31');

if (a=9) then writeln ('30');

if (a=10) then writeln ('31');

if (a=11) then writeln ('30');

if (a=12) then writeln ('31');

end.

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

Помогите Пожалуйста!! Срочно!!!Доступ к файлу doc.htm, находящемуся на сервере site.com, осуществляется по протоко

Rachel2014 [28]

Жбаегвд вроде так.............)

0 0

4 года назад

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

Файл размером 30 Мбайт передаётся через некоторое соединение за 210 секунд.Определите размер файла (в мбайтах) который можно пер

kastiel09

Ответ: 10Мбайт, так как это пропорция

0 0

4 года назад

Дано 100 вещественных чисел. Найти разность между максимальным и минимальным. На Паскале.БЕЗ ИСПОЛЬЗОВАНИЯ МАССИВОВ.

Viktor792008

Program spusku;
uses crt;
type
      spusok=^elem;
    elem=record
        data:integer;
        next:spusok;
    end;
var i:spusok;

procedure add(var current:spusok; elem:integer);
var x:spisok;
begin
  new(x);
  x^.data:=elem;
  x^.next:=nil;
  current^.next:=x;
  current:=x;
end;

procedure stvor(var i:spusok);
var p:spisok; n:integer;
begin
i:=nil;
writeln('Vvedite spusok celux 4usel. 0-konec');
readln(n);
add(i,n);
readln(n);
while n<>0 do
begin
   p:=i;
   while p^.next<>nil do
   p:=p^.next;
   add(p,n);
   readln(n);
end;
end;

procedure minmax(var i:spusok);
var p:spusok; kmin, kmax:integer;
begin
kmin:=1000000;
   kmax:=0;
while i<>nil do
   begin
p:=i;
if p^.data>kmax then kmax:=p^.data;
    if p^.data<kmin then kmin:=p^.data;
     i:=i^.next;
end;
   writeln('raznost =', kmax-kmin)
end;

BEGIN
clrscr;
stvor(i);
minmax(i);
readkey;
end.

0 0

3 года назад

Вводится натуральное число N необходимо вывести все кубы натуральных чисел от N до 1 СРОЧНО

vesroman

Программа на паскале

0 0

2 года назад

На С++ Напишите программу, которая находит сумму, произведение и среднее арифметическое трёх целых чисел, введённых с клавиатуры

Артур-13

Почему-то код постоянно плывёт, поэтому я прикрепил решение скрином.

0 0

4 года назад