Program zeromas;
var
c: array[1..12] of integer;
i, z: integer;
begin
z := 0;
for i := 1 to 12 do
begin
readln(c[i]);
if c[i] = 0 then
z := z + 1;
end;
writeln('Нулевых элементов: ', z);
end.
Ответ:
6
Объяснение:
НЕ ( X<6) И (X<7)
Немного упростим, заменив отрицание.
НЕ ( X<6) - это утверждение "неверно, что x < 6". А какое верно? Конечно, обратное, x ≥ 6. Его и запишем.
X ≥ 6 И X < 7
Что же это за число, которое не меньше 6, но меньше 7? Если оно целое, то только 6.
Вот нарисовал в Painte:
А вот выбор в ПАСКАЛЕ (оператор CASE)
И вот еще:
0)начало
1)посадил дед репку
2)выростил
3)начал ее вытягивать из земли
4)позвал бабку
5)тянут потянут ,вытянуть не могут
5)позвали внучку
6)тянут потянут ,вытянуть не могут
7)позвали Жучку
8)тянут потянут ,вытянуть не могут
9) позвали кошку
10) тянут потянут, вытянуть не могут
11)позвали мышку вытащили
12)конец
Var
ves,rost,ogk:real;
begin
Write('Введите рост и длину окружности грудной клетки в см: ');
Readln(rost,ogk);
ves:=rost*ogk/240;
Writeln('Нормальный вес равен ',ves:5:1,' кг.')
end.