решить тест по информатике.

1. Чему будет равно значение целой переменной a после выполнения этого фрагмента программы?
a:=10;
for i:=1 to 3 do begin
a:=a-3;
end;
2. Чему будет равно значение целой переменной a после выполнения этого фрагмента программы?
a:=10;
for i:=0 to 4 do begin
a:=a-i;
end;
3. Чему будет равно значение целой переменной a после выполнения этого фрагмента программы?
a:=2;
for i:=0 to 4 do begin
a:=a+i;
end;
4. Чему будет равно значение целой переменной a после выполнения этого фрагмента программы?
a:=3;
for i:=1 to 4 do begin
a:=a+a;
end;
5. Какое число будет выведено на экран после выполнения этого фрагмента программы?
for i:=2 downto 0 do
write(i);
6. Какое число будет выведено на экран после выполнения этого фрагмента программы?
write(4);
for i:=1 downto 3 do
write(2*i);
7. Какое число будет выведено на экран после выполнения этого фрагмента программы?
write(1);
for i:=3 to 4 do
write(i);

Нажмите на рекламу ниже и сразу увидите ответ

↓

Популярные вопросы:

ехпдищпшмщил

06.01.2023 07:07

Рассчитать объем памяти для хранения растрового изображения размером 512*256 пикселей и количеством отображаемых цветов равным 32....

Оажлцоа

04.08.2022 05:32

Даны два множества: А={7k+2½k=0,1,2,3,…} и B={8m+1½m=0,1,2,3,…}. Найти: а) А È В; б) А Ç В; в) В \ А; г) А \В; д) А∆В...

mrnaruto004ovx0o3

28.07.2020 15:03

Устройство вывода информации.(7 букв, начинается на о...

CTRAHNK

28.07.2020 15:03

База данных - это a) набор данных, собранных на одной дискете. b) таблица, позволяющая хранить и обрабатывать данные и формулы. c) совокупность хранящихся взаимосвязанных...

буду1

28.07.2020 15:03

Написать программу : с клавиатуры вводятся два целых числа. вывести количество целых чисел находящихся между двумя введенными числами. сами числа не учитываются. пример...

жееннняяя

28.07.2020 15:03

Сколько различных символов можно закодировать с азбуки морзе, использую не менее 2-х и не более 6 сигналов...

беляночкарозочка

27.03.2021 03:26

В электронной книге каждая в ячейке диапазона А2:А4 значение равно 2 и в каждой ячейке диапазона А5:А7 значение равно 4. Чему равно значение формулы =СРЗНАЧ(А2:А7)....

dianasadykovaaaa

16.08.2020 16:48

2.Группа элементов, позволяет добавлять к рисункам или таблицам названия а) названияб) оглавлениев) сноски даю 5звёзд и сердечко и самый лучший ответ ...

ничегонезнаювообще

25.04.2021 16:39

Информатика 5 класс - составить алгоритм любимого блюда...

kmurtazalieva72

25.04.2021 16:39

Составьте блок схему: program qwer; // найти сумму вcех чисел до n var i,n,s: integer; begin writeln ( введите число n ); readln (n); i: =0; s: =0; while i =n do begin...

Ответ:

Ahha118

04.07.2020 04:02

Var n, a, pos, neg, null, i: integer;
begin
pos := 0;
neg := 0;
null := 0;
writeln('Введите N:');
readln(n);
writeln('Введите N целых чисел:');
for i := 1 to n do
begin
read(a);
if(a < 0) then neg := neg + 1;
if(a > 0) then pos := pos + 1;
if(a = 0) then null := null + 1;
end;
writeln('Положительных чисел: ', pos);
writeln('Отрицательных чисел: ', neg);
writeln('Нулей: ', null);
end.
Тестовые решения:
1)ввод
8
1 2 0 3 0 -5 -4 2
вывод
Положительных чисел: 4
Отрицательных чисел: 2
Нулей: 2
2)ввод
6
0 0 3 -5 0 22
вывод
Положительных чисел: 2
Отрицательных чисел: 1
Нулей: 3

0,0(0 оценок)

Ответ:

Asaboc453

04.07.2020 04:02

var

number, N, npol, notr, n0, i: integer; {npol - количество положительных чисел, notr - количество отрицательных, n0 - количество нулей}

begin

writeln('Введите N');

readln(N);

for i:= 1 to N do

begin

writeln('Введите целое число');

readln(number);

if number < 0 then notr:= notr + 1;

if number > 0 then npol:= npol + 1;

if number = 0 then n0:= n0 + 1;

end;

writeln('Было введено ', notr, ' отрицательных чисел, ', npol, ' положительных чисел, ', n0, ' нулей');

end.

А для тестов ты просто вводишь числа и проверяешь, правильно ли нашлось количество.

0,0(0 оценок)

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку