program raf105;
var n,a,x,i:integer;
begin
write('Введите количество учеников: ');
readln(n);
writeln('Вводите кол во правильно решённых вопросов учеников по очереди: ');
for i:=1 to n do
readln(a);
if a<5
then x:= x+1;
end;
writeln('Учениками было получено ',x,' неудовлетворительных оценок');
end.
while i<>n do
i:= i+1;
repeat
until i=n;
#include <iostream>
using namespace std;
int main() {
setlocale(LC_ALL, "ru");
int a, b;
cout << "Введите 2 числа: ";
cin >> a;
cin >> b;
cout << "a + b = " << a+b << endl << "a - b = " << a-b << endl << "a * b = " << a*b << endl << "a / b = " << a/b << endl
<< "a % b = " << a%b << endl << "float(a/b) = " << float(a/b) << endl;
system("pause");
return 0;
}
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 <iostream>
using namespace std;
int main() {
setlocale(LC_ALL, "ru");
int a, b;
cout << "Введите 2 числа: ";
cin >> a;
cin >> b;
cout << "a + b = " << a+b << endl << "a - b = " << a-b << endl << "a * b = " << a*b << endl << "a / b = " << a/b << endl
<< "a % b = " << a%b << endl << "float(a/b) = " << float(a/b) << endl;
system("pause");
return 0;
}