Var
n:integer;
begin
readln(n);
n:=n mod 7;
if n=1 then
writeln('Понедельник');
if n=2 then
writeln('Вторник');
if n=3 then
writeln('Среда');
if n=4 then
writeln('Четверг');
if n=5 then
writeln('Пятница');
if n=6 then
writeln('Суббота');
if n=7 then
writeln('Восресенье');
end.
Опечатка: ...со скоростью А км/ч...
Программа считывает S, A, B.
Язык программирования: Паскаль.
var
S, A, B : integer;
begin
readln (S);
readln (A);
readln (B);
writeln ((S - 1.5 * A) / B + 1.5, ' ч');
end.
const n=3;
var
i, j, s, k: integer;
sa: real;
a: array [1..n, 1..n] of integer;
begin
writeln('Ввод элементов матрицы');
for i := 1 to n do
for j := 1 to n do
begin
write('a[', i, ',', j, ']=');
readln(a[i, j]);
end;
s := 0;k := 0;
for i := 1 to n do
for j := 1 to 1 do
begin
s := s + a[i, j];
k := k + 1;
end;
sa := s / k;
writeln('Среднее арифметическое элементов матрицы = ', sa:2:2);
end.
Создание,открытие,проигрывание,просмотр,редактирование, перемещение,переименование, копирование, удаление,изменение атрибутов и свойств,поиск файлов и назначение прав.