program raf105;
var n,a,x,i:integer;
begin
write('Введите количество учеников: ');
readln(n);
writeln('Вводите кол во правильно решённых вопросов учеников по очереди: ');
for i:=1 to n do
begin
readln(a);
if a<5
then x:= x+1;
end;
writeln('Учениками было получено ',x,' неудовлетворительных оценок');
end.
Цикл whileprogram raf105;
var n,a,x,i:integer;
begin
write('Введите количество учеников: ');
readln(n);
writeln('Вводите кол во правильно решённых вопросов учеников по очереди: ');
while i<>n do
begin
i:= i+1;
readln(a);
if a<5
then x:= x+1;
end;
writeln('Учениками было получено ',x,' неудовлетворительных оценок');
end.
Цикл repeatprogram raf105;
var n,a,x,i:integer;
begin
write('Введите количество учеников: ');
readln(n);
writeln('Вводите кол во правильно решённых вопросов учеников по очереди: ');
repeat
i:= i+1;
readln(a);
if a<5
then x:= x+1;
until i=n;
writeln('Учениками было получено ',x,' неудовлетворительных оценок');
end.
Язык PascalABC#include "stdafx.h"
#include <iostream>
using namespace std;
int main(int argc, char* argv[])
{
int count; // переменная для выбора в switch
cout << " Введите число углов";
cin >> count;
switch (count) // начало оператора switch
{
case 3: // если count = 3
{
cout << " Это четырех угольник" << endl;
break;
}
case 4: // если count = 4
{
cout << "Это четырехугольник" << endl;
break;
}
case 5: // если count = 5
{
cout << "Это пятиугольник" << endl;
break;
}
case 4: // если count = 4
{
cout << a << " / " << b << " = " << a / b << endl;
break;
}
default: // если count равно любому другому значению
cout << "Нет такого многоугольника" << endl;
}
system("pause");
return 0;
}
Объяснение:
