Примерб) у чаршиеся 10 класса решили сделать видеофильм о десяти годах обучения в школе. они хотятмаксимально использовать все эффекты, сделать фильм красочным и запоминающимся. таккак некоторые дети переехали в другие города их сообщения запишут с веб-камеры. учащимся выбрать из таблицы 1 наиболее подходящую бесплатную программу длякомпьютера средней мощности.названиезапись набортребования к лицензияс веб эффектов компьютеруkomediкиностудия windowsминимальный нетребователен свободная(movie maker)pinnacle studio22большойсредняя платная(1500)3 zs4 video editorминимальный средняя свободная| 4 | virtualdubсренийсредняя свободнаяназвание программы: +++обоснование:
Ответы
N - количество чисел в последовательности, i - для организации цикла for, x - очередное число из последовательности
В начале задаем значение max = 0, потому что рассматриваем последовательность натуральных чисел ( 1 и больше), то есть первое же натуральное четное будет записано в max
В конце выводим ьфч только если он не равен нулю, тоесть в последовательности было натуральное четное число!
program z1;var n, i, x, max: integer;beginmax := 0;readln(n);for i := 1 to n dobegin read(x); if (x mod 2 = 0) and (x > max) then max := x;end;if max > 0 then writeln(max) else writeln ('Не таких чисел');end.
В начале задаем значение max = 0, потому что рассматриваем последовательность натуральных чисел ( 1 и больше), то есть первое же натуральное четное будет записано в max
В конце выводим ьфч только если он не равен нулю, тоесть в последовательности было натуральное четное число!
program z1;var n, i, x, max: integer;beginmax := 0;readln(n);for i := 1 to n dobegin read(x); if (x mod 2 = 0) and (x > max) then max := x;end;if max > 0 then writeln(max) else writeln ('Не таких чисел');end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Что означает -//, %, / в информатике?
Автор: nikv568734
Наведіть приклади таких формул. информатика только бистрее
Автор: sveta740450
с информатикой нодо нарисовать блок схемы
Автор: a1rwalk3r
составить таблицы истинности, с кратким объяснением!
Автор: perminovaea
var m:array of integer; n, i, summ:integer;
begin
repeat
write('n: '); readln(n);
SetLength(m, Length(m)+1);
m[Length(m)-1]:=n;
until n=0;
SetLength(m, Length(m)-1);
n:=0; summ:=0;
for i:=0 to Length(m)-1 do begin
if m[i]>12 then begin
inc(n);
inc(summ, m[i]);
end;
end;
Writeln('Result:=', summ/n);
readln;
end.
2)
program Project1;
var n, t, res: integer;
begin
write('N:=');readln(n);
res:=1;
while n>0 do begin
t:=(n mod 10);
if t<4 then res:=res*t;
n:=n div 10;
end;
writeln('Result:=', res);
readln;
end.