rusakovwn
24.10.2020 13:21

1. Какими будут значения переменных j, k после выполнения условного оператора:
if j>k Then j = k-2 Else k=k-2;
если исходные значения переменных равны: j=5, k=3?
1) j=3, k=3.
2) j=1, k=3.
3) j=3, k=5.
2. Определить значение переменной S после выполнения следующих операторов:
s:=0;
n:=4;
For i:=2 То n Do
s:=s+100 Div i;
1) S = 64.
2) S = 128.
3) S = 108.
4) S = 256.
3. Какие из приведенных операторов неправильные?
а) For i:=12 To 15 Do s:=s+i;
б) For a:=30 To 20 Do
if a Mod 3=0 Then d:=d+1;
в) For i:=40 downto 15 Do s:=s+i;
1) В.
2) А.
3) Б.
4. Дана последовательность операторов:
а:=1; b:=1;
while a+b<8 do Begin
а:=а+1;
b:=b+2;
End;
s:=a+b;
Сколько раз будет повторен цикл и какими будут значения переменных а, b, и s после завершения этой последовательности операторов?
1) 3 раза, s=6 a=3, b=5.
2) 2 раза, s=8, a=3, b=5.
3) 1 раз, s=8, a=3, b=7.
5. Оператор для организации повторения действий в языках программирования – это…
1) оператор организации диалога с пользователем;
2) условный оператор;
3) оператор цикла?
6. Этап, на котором устраняются синтаксические ошибки в программе, – это…
1) отладка программы;
2) ввод программы;
3) тестирование программы?
7. Оператор цикла, тело которого выполняется как минимум один раз независимо от значения параметра цикла, – это оператор цикла:
1) с предусловием (WHILE);
2) с заданным числом повторений (FOR);
3) с постусловием (REPEAT)?
8. Что называется алгоритмом?
1) Алгоритм – описание последовательности действий (план), строгое исполнение которых приводит к решению поставленной задачи за конечное число шагов;
2) Алгоритм – описание последовательности действий (план), для решения задачи;
3) Алгоритм – примерный план для решения задачи.
9. Имеется условный оператор:
If D<>10 Then writeln (‘Ура’) Else writeln (‘Плохо…’);
Каким оператором его можно заменить?
1) If D<>10 Then writeln (‘Плохо…’) Else writeln (‘Ура’);
2) If Not(D=10) Then writeln (‘Плохо…’) Else writeln (‘Ура’);
3) If Not(D<>10) Then writeln (‘Плохо…’) Else writeln (‘Ура’).
10. В результате выполнения фрагмента программы:
a:=3,14;
writeln (frac(a));
на печать будет выведено:
1) 3,14, 2) 3.14, 3) 3, 4) 14.
11. Составьте программу, которая из трех введенных с клавиатуры чисел возводит в квадрат положительные, а отрицательные оставляет без изменения.
12.Найти сумму отрицательных элементов массива, размерности 15, заполненного с случайных чисел из промежутка (-15;23).
13.Найти количество четных элементов массива целых чисел, заполненного с клавиатуры, размерность массива 9.

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
Ashmalikova
02.05.2020 19:16
// PascalABC.NET 3.0, сборка 1144 от 16.01.2016
begin
  var a:=ArrRandom(100,-10,10);
  a.Println;
  Writeln(a.Where(x->x>0).Count,' положительных, ',
    a.Where(x->x<0).Count,' отрицательных')
end.

Тестовое решение:
4 -6 0 8 2 -2 -1 -8 -6 8 -3 7 4 -7 -5 9 0 -3 -7 1 0 -4 6 3 8 -10 4 9 3 5 8 5 5 8 10 4 -8 3 8 8 -9 2 7 -8 -7 -5 2 -9 0 9 -7 7 -2 -6 7 -2 -1 7 -10 2 4 1 -1 0 10 3 -8 6 -6 2 6 7 -1 -4 -1 8 0 3 0 2 -2 2 -1 5 1 -9 -4 1 -9 1 -6 -5 3 -4 -7 1 -7 -3 -7 1
51 положительных, 42 отрицательных
0,0(0 оценок)
Ответ:
VanoK48
25.04.2021 18:31

В паскале

1) program one;

uses crt;
var a:array [1..10] of integer;
x: real; i:integer;
begin
clrscr;
x:=0;
for i:=1 to 10 do
readln(A[i]);
for i:=1 to 10 do
begin
if (A[i]<0) or (A[i] mod 2=0) then
x:=x+Sqr(A[i]);
end;
writeln;
write(x);
end.

2)

program two;
uses crt;
var a:array [1..52] of integer;
x,i: integer;
begin
clrscr;
x:=34;
for i:=1 to 52 do
begin
A[i]:=1+x;
x:=x+1;
if (A[i] mod 7 =1)or (A[i] mod 7 =2) or (A[i] mod 7 =5)
then writeln(A[i]);
end;
end.

3)

Program three;
Uses crt;
var n,x:integer; a,y:real;
begin
Clrscr;
readln(a,n);
for x:=1 to n do
y:=x*a;
writeln(y);
end.

4)

Program four;
Uses crt;
var A:array [1..100] of integer;
n,i,max,x:integer;
begin
clrscr;
writeln('vvedite kol-vo elementov');
readln(n);
writeln('Vvedite elementy');
for i:=1 to n do
read(A[i]);
for i:=1 to n do
begin
max:=A[1];
if (A[i] <0) and (A[i]>A[x])
then max:=A[i];
x:=i;
end;
writeln ('Naib',max,'nomer',x);
end.

5)

Program abc;
Uses crt;
var S,a,b:integer;
begin
clrscr;
S:=0;
a:=1;
b:=3;
while a<98 do
begin
while b<100 do
begin
S:=S+b-a;
a:=a+4;
b:=b+4;
end;
end;
writeln(s);
end.

0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота