<span>1. Для какого из данных слов истинно высказывание:
НЕ (оканчивается на мягкий знак) И (количество букв чётное)?
2) август - оканчивается не на мягкий знак и состоит из 6 - четного числа - букв
2. Для какого из приведённых имён ложно высказывание:
НЕ (Первая буква согласная) ИЛИ НЕ (Последняя буква гласная)?
2) Кристина - дизъюнкция (или) неверна, если неверны все операнды. Здесь неверно, что первая буква не согласная, и неверно, что последняя буква не гласная.
3. Для какого из данных слов истинно высказывание:
(оканчивается на мягкий знак) И НЕ (количество букв чётное)?
3) декабрь - конъюнкция (и) верна, если все операндцы истинны. Здесь верно, что слово оканчивается на мягкий знак и верно, что количество букв нечетное.
4.Для какого из приведённых имён истинно высказывание:
НЕ((Первая буква согласная) ИЛИ (Последняя буква гласная))?
1) Иван - если НЕ(...) истинно, то то, что в скобках - ложно. В скобках два утверждения, соединенные ИЛИ, значит, оба должны быть ложны.
5. Для какого из приведённых имён ложно высказывание:
(Третья буква гласная) ИЛИ НЕ (Последняя буква гласная)?
2) Татьяна
6. Для какого из приведённых чисел истинно высказывание: (число < 100) И НЕ (число чётное)?
3) 23
7. Для какого из приведённых значений числа X истинно высказывание: (X < 5) И НЕ (X < 4)?
4) 4 - действительно, 4 < 5, но неверно, что 4 < 4.
8. Для какого из приведённых имён истинно высказывание:
НЕ (Первая буква согласная) И НЕ (Последняя буква гласная)?
1) Юлиан
9. Для какого из приведённых значений числа X ложно высказывание: НЕ (X < 7) ИЛИ (X < 6)?
3) 6
10. Для какого из данных слов истинно высказывание:
НЕ (есть шипящие) И (оканчивается на гласную)?
Шипящие звуки — это [ж], [ш], [ч'], [щ'].
3) забота</span>
1 задача:
var n:integer;
x:real;
begin
writeln ('Введите число X'); readln(x);
writeln ('Введите максимальную степень числа X'); readln(n);
for n:=1 to n do
begin
writeln ('x= ',exp(ln(x)*n));
end;
<span>end.
----------------------
2 задача:
const x=2;
var n:integer;
begin
writeln ('Введите максимальную степень числа 2'); readln(n);
for n:=1 to n do
begin
writeln ('x= ',exp(ln(x)*n));
end;
<span>end.
--------------------
Просто интересно, почему кто-то выполняет такие задания ЛЕТОМ?о_О</span></span>
Var a: String;
sum,i: Integer;
begin
sum:=0;
writeln('Введите текст');
readln(a);
for i:=1 to Length(a) do
begin
if a[i]='а' then sum:=sum+1;
end;
writeln('Буква а встречается: ',sum,' раз(а)');
end.
Тем что там запрос, а там вопрос,ооочень глупо)
C#
using System; using<span> System.Text;</span>
class Mean
{
public int main()
{
int len;
Console.Write("Введите диагональ матрицы: "); len=(int)Console.ReadLine();
int[,] matrix = new int[len,len];
Console.WriteLine("Среднее арифметическое: ", average(matrix));
}
public int average(int[] mas)
{
int ans=0;
for(int x = 0; x<mas.Length;x++)
{
ans+=mas[x];
}
return ans;
}
public int[] diagonal(int[,] mas)
{
int[] ans = new int[mas.GetLength(0)];
for(int x=0; x<ans.Length; x++)
{
ans[x]=mas[x,x];
}
return ans;
}
}