program raf105;
const
n= 4; //Размер матрицы (кол-во и длинна строк). Можно менять
var
a:array[1..n,1..n] of integer;
asum:array[1..n] of integer;
i,j,k,sum,kolsum: integer;
x: boolean;
begin
write('Введите число k (не больше ',n,'): ');
readln(k);
for i:=1 to n do
begin
writeln;
writeln('Введите ',n,' чис. ',i,' стр.');
for j:=1 to n do
readln(a[i,j]);
end;
writeln;
writeln('Суммы элементов тех строк, в которых первые ',k,' элем. положительные');
for i:=1 to n do
begin
x:= true;
sum:= 0;
for j:=1 to k do
begin
if x and (a[i,j] <= 0)
then x:= false;
end;
if x
then
begin
for j:=1 to n do
sum+= a[i,j];
kolsum+= 1;
asum[kolsum]:= sum;
writeln(asum[kolsum]);
end;
end;
end.
Var a: integer;
begin
writeln('Введите порядковый номер: ');
readln(a);
case a of
1: writeln('Мать: 1.1.2017');
2: writeln('Отец: 2.2.2017');
3: writeln('Бабушка: 3.3.2017');
4: writeln('Дедушка: 4.4.2017');
else writeln('Неверно введен порядковый номер. Попробуйте еще раз.');
end;
end.
--------
Даты вводи те, которые тебе нужны. Порядковые номера также можно изменить по собственному усмотрению.
Процессор
так как: устройства ввода это клавиатура, оперативная память это память, устройства вывода :колонки
<span>При работе в среде Windows часто используется термин «задача». Это понятие тесно связано с термином «приложение». Приложение становится задачей после его запуска. Приложение можно запустить двумя способами: либо непосредственно открыв файл запуска, либо открыв документ, созданный в этом приложении. Можно сказать, что задача - это работающее приложение, которое потребляет ресурсы системы или ждет своей очереди на них. Термин «задача» связан с механизмом управления ресурсами, а не с тем, работает с приложением пользователь или нет. О некоторых задачах пользователь может и не подозревать. Список задач можно получить, одновременно нажав клавиши <Ctrl><Alt><Del>. Приложения могут запускаться либо по инициативе пользователя, либо по инициативе Windows. Все задачи должны быть в той или иной форме отображены на экране.</span>
Program n1;
var a: integer;
begin
for a:=8 to 96 do
if( a mod 8 =0) then writeln(a);
end.