Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

Написать программу в Паскале
Пользователь вводит количество недель, месяцев, лет и получает количество дней за это время. Считать, что в месяце 30 дней.

Ответ оставил Гость

Var a: array[1..200] of integer;
n,m,j,k:integer;
begin
writeln(введите кол-во недель); readln(n);
writeln(введите кол-во месяцев); readln(m);
writeln(введите кол-во лет); readln(j);
k:=7*n+30*m+j*365; writeln(кол-во дней=,k);end.