Помогите пожалуйста написать код на Pascal
Приложения:
Ответы на вопрос
Ответил rosalinkey
1
program gradeCounter;
var
grade, count: integer;
begin
count := 0;
writeln('Enter the grades:');
readln(grade);
while (grade > 0) and (grade <= 5) do
begin
if grade = 2 then
count := count + 1;
readln(grade);
end;
writeln('Number of twos: ', count);
end.
var
grade, count: integer;
begin
count := 0;
writeln('Enter the grades:');
readln(grade);
while (grade > 0) and (grade <= 5) do
begin
if grade = 2 then
count := count + 1;
readln(grade);
end;
writeln('Number of twos: ', count);
end.
Новые вопросы