1. Запишите высказывание, обратное данному: «Вчера шел снег или сегодня солнечно.». 2. Для каких из чисел 0 2 3 8 10 ложно высказывание: (X > 8) ИЛИ ((X < 3) И (X > 0))?
3. Для каких из перечисленных ниже фамилий: Есенин Блок Толстой Фет Тютчев
истинно высказывание: НЕ (количество согласных букв чётно) И (первая буква соглас-ная)?
4. Напишите наименьшее число x, для которого ложно высказывание:
(x ≤ 31) ИЛИ НЕ (x кратно 6)
Будет выведено: sr=4.5
Объяснение:
Расписал подробно и с комментариями.
program a78; //Название программы
var i,s:integer; sr:real; //Объявление переменных
const a:array [1..6] of integer = (1,7,3,6,0,10); //объявление массива
begin //тело программы
s:=0; //присваиваем s к 0, своеобразный буфер
for i:=1 to 6 do //для значений i от 1 до 6 выполняй следующие действия:
s:=s+a[i]; //тело цикла, то что будет циклиться и выполняться
sr:=s/6; //тело цикла, то что будет циклиться и выполняться
writeln('sr=',sr); //вывод значения
end. //конец программы
begin
var a,b,c:integer;
write('Введите числа a,b: '); readln(a,b);
for var l:=1 to 3 do if (a.ToString[l]+a.ToString[l+1])=b.ToString then inc(c);
writeln('Результат: ',(c>0)? c.ToString:'Число a не является внутренним для b');
end.
Примечание:
Если хотите сделать защиту от некорректного ввода, то программа будет выглядеть так:
begin
var a,b,c:integer;
write('Введите числа a,b: '); readln(a,b);
if (a.ToString.Length<>4) or (a<0) then
writeln ('Число а должно быть положительным четырехзначным')else
begin
if (b.ToString.Length<>2) or (b<10) then
writeln ('Число b должно быть положительным двухзначным') else
begin
for var l:=1 to 3 do if (a.ToString[l]+a.ToString[l+1])=b.ToString then inc(c);
writeln('Результат: ',(c>0)? c.ToString:'Число a не является внутренним для b');
end;
end;
end.