1)Постройте таблицу истинности, если логическая функция F задаётся выражением: ¬y ∧ (х ∨ ¬ z) 2)Напишите наибольшее двузначное число, для которого истинно высказывание: (первая цифра чётная) И (число делится на 5 3)Для какого имени истинно высказывание: НЕВЕРНО (Первая буква согласная ИЛИ Последняя буква гласная) И Вторая буква согласная? а) ИРИНА б) СТЕПАН в) МАРИНА г) ИВАН 4)Для какого названия животного истинно высказывание: Четвертая буква гласная Ù ¬ (Вторая буква согласная)? а) Коала б) Жираф в) Верблюд г) Страус
Ответы
Const n = 5;
m = 5;
var a:array[1..n,1..m] of integer;
i,j,s:integer;
begin
//Для теста заполним массив сл.числами
for i:=1 to n do begin
for j:=1 to m do begin
a[i,j]:=random(21)-10; write(a[i,j]:4);
end;
writeln;writeln;
end;
//сумма всех элементов массива
for i:=1 to n do
for j:=1 to m do s:=s+a[i,j];
writeln('сумма всех элементов массива: ',s);
//сумма каждой строки
for i:=1 to n do begin
s:=0;
for j:=1 to m do begin
s:=s+a[i,j];
end;
writeln ('Строка: ',i,' сумма:',s);
end;
end.
m = 5;
var a:array[1..n,1..m] of integer;
i,j,s:integer;
begin
//Для теста заполним массив сл.числами
for i:=1 to n do begin
for j:=1 to m do begin
a[i,j]:=random(21)-10; write(a[i,j]:4);
end;
writeln;writeln;
end;
//сумма всех элементов массива
for i:=1 to n do
for j:=1 to m do s:=s+a[i,j];
writeln('сумма всех элементов массива: ',s);
//сумма каждой строки
for i:=1 to n do begin
s:=0;
for j:=1 to m do begin
s:=s+a[i,j];
end;
writeln ('Строка: ',i,' сумма:',s);
end;
end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Суреттегі не туралы ақпарат берілгенін тап.
Автор: pechinin
Берілген сөздерден анықтама құрыныз: үш, нысан, жасау, өлшемді, 3D модель, ол.
Автор: БеляковаСтаниславовна
Составьте различные модели: Квадрата Прямой линии Человека
Автор: rebet61
//Pascal ABC.NET v3.0 сборка 1111
//1
Var
a,p,s:real;
begin
readln(a);
p:=a*4;
s:=a*a;
writeln('P=',p);
writeln('S=',s);
end.
//2
Var
a,b:integer;
begin
read(a,b);
if a>b then writeln(b);
if a=b then writeln('=');
if a<b then writeln(a);
end.
{На этом и закончу всем, кто когда либо и чем либо поддерживал данный проект. Думаю, он ещё многим послужит в критический момент. И я говорю не только про "списать домашку". Счастливо оставаться, господин Alviko. Может, ещё увидимся.
Ваш, Глеб 'I3artle' Косырев}