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
using namespace std;
int main()
{
int num1, num2, num3;
cout < < "введите 3 числа: ";
cin > > num1 > > num2 > > num3;
cout< < "максимальное из введённых - ";
if ((num1 > = num2) & & (num1 > = num3)) {
cout < < num1;
} else if ((num2 > = num3) & & (num2 > = num1)) {
cout < < num2;
} else {
cout < < num3;
}
}
Поделитесь своими знаниями, ответьте на вопрос:
Сканируется цветное изображение размером 10*10 см.разрешающая способность сканера 1200*1200dpi, глубина цвета 24 информационный объем будет иметь полученный графический файл? (если можно то с полным разъяснением)