напишите программу которая запрашивает значение двух целочисленных переменных на одной строке, а на другой выводит сообщение результат деления переменных =*** ответ должен быть с тремя цифрами в дробной части
Программу я не смогу написать, но примерный алгоритм дам. Если (M = 1, 3, 5, 7, 8, 10, или 12) И (D <= 30), то (D = D + 1) Если (M = 1, 3, 5, 7, 8, 10) И (D = 31), то (M = M + 1, D = 1) Если (M = 12) И (D = 31), то (G = G + 1, M = 1, D = 1) Если (M = 4, 6, 9, 11) И (D <= 29), то (D = D + 1) Если (M = 4, 6, 9, 11) И (D = 30), то (M = M + 1, D = 1) Если (M = 2) И (D <= 27), то (D = D + 1) Если (M = 2) И (G mod 4 <> 0) И (D = 28), то (M = 3, D = 1) Если (M = 2) И (G mod 4 = 0) И (D = 28), то (D = D + 1) Если (M = 2) И (G mod 4 = 0) И (D = 29), то (M = 3, D = 1) Если (M = 2) И (G = 1900 или 2100) И (D = 28), то (M = 3, D = 1) В последней строчке я учёл разницу между Григорианским и Юлианским календарями. По Юлианскому после 28.02 1900 или 2100 года наступит 29.02. По Григорианскому наступит 01.03.
Если (M = 1, 3, 5, 7, 8, 10, или 12) И (D <= 30), то (D = D + 1)
Если (M = 1, 3, 5, 7, 8, 10) И (D = 31), то (M = M + 1, D = 1)
Если (M = 12) И (D = 31), то (G = G + 1, M = 1, D = 1)
Если (M = 4, 6, 9, 11) И (D <= 29), то (D = D + 1)
Если (M = 4, 6, 9, 11) И (D = 30), то (M = M + 1, D = 1)
Если (M = 2) И (D <= 27), то (D = D + 1)
Если (M = 2) И (G mod 4 <> 0) И (D = 28), то (M = 3, D = 1)
Если (M = 2) И (G mod 4 = 0) И (D = 28), то (D = D + 1)
Если (M = 2) И (G mod 4 = 0) И (D = 29), то (M = 3, D = 1)
Если (M = 2) И (G = 1900 или 2100) И (D = 28), то (M = 3, D = 1)
В последней строчке я учёл разницу между Григорианским и Юлианским календарями.
По Юлианскому после 28.02 1900 или 2100 года наступит 29.02.
По Григорианскому наступит 01.03.
1)
var
a, n, s: integer;
begin
write('n = ');
Readln(n);
a := 1;
while a <= n do
begin
s := s + a;
a := a + 1;
end;
writeln(s);
end.
2)
var
a, n: integer;
begin
write('n = ');
Readln(n);
a := 1;
while a <= n do
begin
writeln(2 * a);
a := a + 1;
end;
end.
3)
var
a, b: integer;
begin
write('Введите числа a и b: ');
Readln(a, b);
while a <= b do
begin
writeln(a, '^2 = ', sqr(a));
a := a + 1;
end;
end.