Привет всем с информатикой с тестом:
пример как нужно сделать:
дано: A=10 B=18
подставим данные
IF 10>18 THEN S:= A ELSE S:=B; (если 10>18 то S= 10 иначе S=18)
WRITE (S); ответ 18
ЧТО НУЖНО РЕШИТЬ:
1.Дано: Х=4 IF X<=10 THEN Y:=210 ELSE Y:=X*X*X ;WRITE (Y); *
2.Дано: А=5, В=78 IF A>B THEN S:= A ELSE S:=B;WRITE (S); *
3.Дано: Х=-7 IF X<=10 THEN Y:=210 ELSE Y:=X*X*X ;WRITE (Y); *
4.Дано: А=12, В=12 IF A>B THEN S:= A ELSE S:=B;WRITE (S); *
5.Дано: Х=10 IF X<=10 THEN Y:=210 ELSE Y:=X*X*X ;WRITE (Y); *
6.Дано: А=14, В=-11 IF A>B THEN S:= A ELSE S:=B;WRITE (S); *
7.Дано: Х=-23 IF X<=10 THEN Y:=210 ELSE Y:=X*X*X ;WRITE (Y); *
Режим инкогнито, приватный просмотр — режим браузеров, временно дающий «новое» устройство без истории сёрфинга. Иногда дополнительно усиливается защита информации: например, начинает агрессивнее работать блокировщик трекеров.
Может применяться:
1)для сёрфинга по порно, медицинским и прочим законным, но компрометирующим сайтам, покупки подарков втайне от домочадцев
2)для сёрфинга на чужом устройстве
3)для временного частичного снятия пузыря фильтров
4)для ухода от оплаты на некоторых новостных сайтах
5)для отладки сайтов
6)для трансляции экрана
1)Cначала заполняем массив случайными числами от 2 до 5 (включительно)
2)Потом выводим его (Для проверки)
3) Потом считаем оценки. Но сначала нужно обнулить переменные( В самом начале это делали), а то получится кака (:
program N_0547847;
var
b, c, d, f, i:integer;
a: array [1..20] of integer;
begin;
randomize;
b:=0; c:=0; d:=0; f:=0;
for i:=1 to 20 do begin
a[i]:=random(4)+2;
write(a[i],' '); end;
writeln;
for i:=1 to 20 do begin
if a[i]=2 then b:=b+1;
if a[i]=3 then c:=c+1;
if a[i]=4 then d:=d+1;
if a[i]=5 then f:=f+1;
end;
writeln('Двоек: ', b);
writeln('Троек: ', c);
writeln('Четверок: ',d);
writeln('Пятерок: ',f);
end.