p - произведениеs - суммаi - цикловая переменная1. цикл с предусловием whilevarp, s, i : longint; [или integer]beginp : = 1; s : = 0; i : = 101; while i < 200 dobeginif i mod 5 = 0 thenbeginp : = p * i; s : = s + i; end; i : = i + 1; [или ing(i)]end; writeln(p); writeln(c)end.2. цикл с постусловием repeat varp, s, i : longint; [или integer]beginp : = 1; s : = 0; i : = 101; repeatif i mod 5 = 0 thenbeginp : = p * i; s : = s + i; end; i : = i + 1; [или ing(i)]until i > = 200; writeln(p); writeln(c)end. 3. цикл for varp, s, i : longint; [или integer]beginp : = 1; s : = 0; for i : = 101 to 199 dobeginif i mod 5 = 0 thenbeginp : = p * i; s : = s + i; end; end; writeln(p); writeln(c)end.
Ответ дал: Гость
во - первых рассмотрим простые высказывания:
м - монитор неисправен
в - видеокарта неисправна
о - оперативная память неисправна
во вторых: запишем на языке логики возможные предположения: (m v b) --> o и m --> b
пусть f(м,в,о) = (m v b) --> o и m --> b
составляем таблицу истинности:
м в о m --> b
0 0 0 1
1 0 1 1
0 0 0 1
1 1 1 0
0 0 0 1
0 1 1 0
1 1 0 0
1 1 1 1
1 0 0 0
1 0 0 0
0 1 1 1
1 1 0 1
0 1 1 0
1 1 1 1
0 0 1 0
1 1 0 1
1 1 0 1
1 0 1 1
анализ таблицы показывает, что сложное высказывание истинно во всех случаях, когда м – истинно, т.е. вероятнее всего неисправен именно монитор.
Ответ дал: Гость
a = sqrt((x1-x2)*(x1-x2)+(y1-y2)*(y1-y2));
b = sqrt((x3-x2)*(x3-x2)+(y3-y2)*(y3-y2));
c = sqrt((x1-x3)*(x1-x3)+(y1-y3)*(y1-y3));
writeln("периметр = ",a+b+c);
s = {формула герона}
Ответ дал: Гость
1)никакие художники не могут повторить замечательный стиль рисования известного художник маковского
2)все великие писатели в своё время переносили критику,но это делало их только сильнее.
Популярные вопросы