program z1;
var a,b,k,i:integer;
begin
k:=0;
write('Ââåäèòå êîîðäèíàòó à: ');
read(a);
write('Ââåäèòå êîîðäèíàòó b: ');
read(b);
for i:=a to b do begin
if i mod 3=0 then begin
writeln(i);
k:=k+1;
end;
end;
writeln('Количество чисел кратных трём равно ',k);
readln;
end.
1. картинка
2. 2) палка
Объяснение:
1.
Общий порядок действий:
1) скобки
2) НЕ (¬, черта над выражением) - значение противоположно исходному высказыванию
3) И (∧) - истинно, когда оба исходных высказывания истинны
4) ИЛИ (∨) - ложно, когда оба исходных высказывания ложны
2.
(Первая буква слова согласная ИЛИ Вторая буква слова гласная) И Последняя буква гласная = 1 (истинно)
1) ирис
2) палка
3) словарь
И - истинно, когда оба исходных высказывания истинны
(Первая буква слова согласная ИЛИ Вторая буква слова гласная) = 1 (истинно)
Последняя буква гласная = 1 (истинно)
Проверим правую часть (Последняя буква гласная = 1 (истинно)):
1) ирис = 0 (ложно, с - согласная буква)
2) палка = 1 (истинно, а- гласная буква)
3) словарь = 0 (ложно, ь - не гласная и не согласная буква)
Осталось всего 1 слово (палка)
Проверим левую часть ((Первая буква слова согласная ИЛИ Вторая буква слова гласная) = 1 (истинно))
ИЛИ - истинно, когда любое из исходных высказываний истинно
Первая буква слова согласная = 1 (истинно)
ИЛИ
Вторая буква слова гласная = 1 (истинно)
2) палка = 1 (истинно, п - согласная буква, а - гласная буква)
1) ирис = 0 (ложно, и - гласная буква, р - согласная буква)
3) словарь = 1 (истинно, с - согласная буква, л - согласная буква)
Слово палка подходит и под левую часть
var a,c: real;
begin
write ('Введите стоимость 1 кг яблок: ');
readln (c);
a := 0.6;
while a <= 7.2 do
begin
writeln(a:3,' кг яблок стоит ', a*c,' руб.');
a := a + 0.6
end
end.