Var k, m, t : integer;
Dat: array[1.10] of integer;
Begin
Dat[1] := 36; Dat[2] := 50;
Dat[3] := 23; Dat[4] :=41;
Dat[5] := 27; Dat[6] := 22;
Dat[7] := 59; Dat[8] := 12;
Dat[9] := 65; Dat[10] := 35;
m := 0;
for k := 1 to 10 do
if Dat[k] >m then
begin
m := Dat[k];
t := k
end;
writeln(k)
End.
Var s, i: integer; Mas:array[1.10] of integer;
Begin
Mas[1]:=14; Mas[2]:=10; Mas[3]:=-8; Mas[4]:=6;
Mas[5]:=12; Mas[6]:=4; Mas[7]:=-16; Mas[8]:=-7;
Mas[9]:=5; Mas[10]:=3; s:=0;
for i:=1 to 5 do Mas[2*i]:=-Mas[2*i-1];
for i:=1 to 10 do
if Mas[i]>0 then s:=s+Mas[1];
write(s)
End.
решение с пояснением
Выделите операторы, образующие тело цикла.
[Var i, x : integer;]
Begin
[x:=0;]
For i:=1 to 10 do
Begin
[Write(x);]
[x:=x+i;]
end;
[Write(i)]
End.
Массив нужно заполнить именно так:
X = [12 9 6 3 0 -3]
Какой оператор надо поместить в тело цикла
for k:=1 to 6 do begin
.
end;
Представленный ниже на пяти языках программирования фрагмент программы обрабатывает элементы одномерного целочисленного массива A с индексами от 0 до 9. Перед началом выполнения данного фрагмента эти элементы массива имели значения 2, 4, 1, 8, 2, 6, 3, 2, 2, 1 (т.е. A[0] = 2, A[1] = 4, …, A[9] = 1). Определите значение переменной s после выполнения фрагмента.
Паскаль
n:=10;
s:=0;
for i:=1 to n-1 do begin
if a[i-1]>2*a[i] then begin
a[i]:=2*a[i];
s := s+ a[i];
end;
end;
Var s,k: integer; Begin s := 8; for k := 4 to 8 do s := s+8; writeln(s); End. Напишите ответ пожалуйста
Запишите значение переменной s, полученное в результате работы следующей программы: Var s,k: integer; Begin s := 0; for k := 5 to 13 do s := s + 7; writeln(s); End.
Сотрудник метеобюро в ходе измерений среднесуточной температуры записывал показания термометра в таблицу Tem (Tem[1] — температура, полученная в результате первого измерения, Tem[2] — второго и т. д.).
Определите, какое число будет напечатано в результате работы следующей программы. Текст программы приведён на пяти языках программирования.
Бейсик
Python
DIM Tem(12) AS INTEGER
DIM k, b AS INTEGER
Tem(1) = 22: Tem(2) = 25
Tem(3) = 20: Tem(4) = 18
Tem(5) = 16: Tem(6) = 14
Tem(7) = 20: Tem(8) = 23
Tem(9) = 17: Tem(10) = 19
Tem(11) = 20: Tem(12) = 21
b = 0
FOR k = 1 TO 12
IF Tem(k) < 19 THEN
b = b + Tem(k)
ENDIF
NEXT k
PRINT b
Tem = [22, 25, 20, 18, 16, 14, 20, 23, 17, 19, 20, 21]
b = 0
for k in range (12):
if Tem[k] < 19:
b = b + Tem[k]
print (b)
Паскаль
Алгоритмический язык
Var k, b: integer;
Tem: array[1.12] of integer;
Begin
Tem[1]:=22;Tem[2]:=25;
Tem[3]:=20;Tem[4]:=18;
Tem[5]:=16;Tem[6]:=14;
Tem[7]:=20;Tem[8]:=23;
Tem[9]:=17;Tem[10]:=19;
Tem[11]:=20;Tem[12]:=21;
b := 0;
for k := 1 to 12 do
if Tem[k] < 19 then
begin
b := b + Tem[k];
end;
writeln(b);
End.
алг
нач
целтаб Tem[1:12]
цел k, b
Tem[1] := 22
Tem[2] := 25
Tem[3] := 20
Tem[4] := 18
Tem[5] := 16
Tem[6] := 14
Tem[7] := 20
Tem[8] := 23
Tem[9] := 17
Tem[10] := 19
Tem[11] := 20
Tem[12] := 21
b := 0
нц для k от 1 до 12
если Tem[k] < 19 то
b := b + Tem[k]
все
кц
вывод b
кон
С++
#include
using namespace std;
int main() {
int Tem[12] = {22, 25, 20, 18, 16, 14, 20, 23, 17, 19, 20, 21};
int b = 0;
for (int k = 0; k < 12; k++)
if (Tem[k] < 19) b = b + Tem[k];
cout << b;
return 0;
}
ПОМОГИТЕ ПРОШУ. ДАМ МАКСИМАЛЬНОЕ КОЛ-ВО БАЛЛОВ
1. Задан массив X[1.N]. Какой оператор надо поставить вместо многоточия, чтобы найти в переменной S сумму всех элементов массива? Вводите ответ без пробелов.
S:= 0;
for k:=1 to N do begin
.
end;
Ответ:
введите строку
2. Задан массив X[1.N]. Какое условие надо поставить вместо многоточия, чтобы найти в переменной S сумму положительных элементов массива? Вводите ответ без пробелов.
S:= 0;
for k:=1 to N do begin
if . then
S:= S + X[k]
end;
Ответ:
введите строку
3. Задан массив X[1.N]. Какое условие надо поставить вместо многоточия, чтобы найти в переменной S сумму элементов массива, которые делятся на 5? Вводите ответ без лишних пробелов.
S:= 0;
for k:=1 to N do begin
if . then
S:= S + X[k]
end;
Ответ:
введите строку
4. Задан массив X[1.N]. Какое условие надо поставить вместо многоточия, чтобы найти в переменной S сумму элементов массива, десятичная запись которых заканчивается на 4? Вводите ответ без лишних пробелов.
S:= 0;
for k:=1 to N do begin
if . then
S:= S + X[k]
end;
Ответ:
введите строку
5. Задан массив X[1.N]. Какое условие надо поставить вместо многоточия, чтобы найти в переменной S количество чётных элементов массива? Вводите ответ без лишних пробелов.
S:= 0;
for k:=1 to N do begin
if . then
S:= S + 1
end;
Ответ:
введите строку
6. Задан массив X[1.N]. Какое условие надо поставить вместо многоточия, чтобы найти в переменной S количество элементов массива, делящихся на 3? Вводите ответ без пробелов.
S:= 0;
for k:=1 to N do begin
if . then
S:= S + 1
end;
Ответ:
введите строку
7. Задан массив X[1.N]. Какое условие надо поставить вместо многоточия, чтобы найти в переменной S количество элементов массива, десятичная запись которых оканчивается на 6? Вводите ответ без лишних пробелов.
S:= 0;
for k:=1 to N do begin
if . then
S:= S + 1
end;
Ответ:
введите строку
8. Задан массив X[1.N]. Какое условие надо поставить вместо многоточия, чтобы найти минимальный элемент массива в переменной M? Вводите ответ без пробелов.
M:= X[1];
for k:=2 to N do begin
if . then
M:= X[k]
end;
Ответ:
введите строку
9. Задан массив X[1.N]. Какой оператор надо поставить вместо многоточия, чтобы найти номер максимального элемента массива в переменной M? Вводите ответ без пробелов.
M:= 1;
for k:=2 to N do begin
if X[k] > X[M] then
.
end;
Дано описание переменных. Выбери верные ответы.
var
int, int2: integer;
d:real ;
N: char;
begin
.
Помогите,срочно,прошу
Известно значение трёх чисел.
Определить наибольшее
Примечание: использовать ReadLn и ячейки Y, a, b, c
вид экрана:
Ввести с клавиатуры три
целых числа в ячейки А,В,С:
7 15 9
У = 15
ТЕКСТ:
Program M_1;
Var
y, a, B, C: ? ;
begin
end.
Помогите решить. Надо написать на языке паскаль 7 вариант
Скільки разів буде виконано цикл
for x in range (5, -2, -2) ?
1) 7
2) 4
3) 5
4) жодного разу
Артур составляет 5-буквенные коды из букв А, П, О, Р, Т. Каждую букву нужно использовать ровно один раз, при этом нельзя ставить рядом две гласные. Сколько различных кодов может составить Артур?
Напишите с объяснением, пожалуйста
Решите задачу.
У исполнителя имеется две команды:
1. Прибавить 3
2. Отнять 1
Какое минимальное количество команд необходимо выполнить исполнителю для получения числа 9 из числа 2 Выберите один ответ:
a.5
b.2
c.7
d.3
Write a program that lets you know if you can have a key or not, based on your role at the school.
First ask for the user’s role at the school. They can be a student, administrator, or a teacher. (And remember that capitalization is important! ‘Student’ is not the same as ‘student’.)
Example 1: Administrator or Teacher
For example, if this was the input:
Are you an administrator, teacher, or student?: teacher
This should be the output:
Administrators and teachers get keys!
Example 2: Student
And if this was the input:
Are you an administrator, teacher, or student?: student
This should be the output:
Students do not get keys!
(Note: You should also be able to handle a situation where the user enters a value other than administrator, teacher or student and tell them they must be one of the three choices!)
Example 3: Other
If they input anything else:
Are you an administrator, teacher, or student?: secretary
This should be the output:
You can only be an administrator, teacher, or student!
РЕШИТЕ ЗАДАЧУ ПО ИНФОРМАТИКЕ В excel
Во время каникул Незнайка решил поработать продавцом газет и проработал целую неделю. За каждый проданный экземпляр газеты «Известия Цветочного города» он получал 10 монет. За каждый экземпляр «Технической газеты Винтика и Шпунтика» — 7 монет. За каждый экземпляр «Медицинских новостей доктора Медуницы» — 8 монет. В понедельник он продал 8 экземпляров Известий, 7 экземпляров Технической газеты и 5 экземпляров Медицинских новостей. Во вторник было продано 13 экземпляров Известий, 4 экземпляра Технической газеты и 8 экземпляров Новостей. В среду — 10 Известий, 10 Технических и 12 Новостей. В четверг — 8 Известий, 7 Технических газет и 15 Медицинских новостей. В пятницу — 10 штук Известий, 5 штук Технических и 8 штук Медицинских. В субботу — 9 Известий, 13 Технических газет и 8 Медицинских новостей. В воскресенье — 5 экземпляров Известий, 6 экземпляров Технической и 9 экземпляров Медицинской.
Сколько экземпляров каждой газеты Незнайка продавал за каждый день недели и сколько — за всю неделю; сколько денег он зарабатывал за каждый день недели и сколько — за всю неделю; сколько денег он получал за продажу каждой газеты за всю неделю?
КАКУЮ ФОРМУЛУ НАДО ПИСАТЬ В ПУСТЫХ ЯЧЕЙКАХ? (Знаю, что должна быть формула Сумма произведений) ПИШИТЕ ФОРМУЛУ ПОДРОБНО, ПОЖАЛУЙСТА
Пацаны срочно будет ли звуковой сигнал загрузки биос без видеоядра?
Що таке «висловлювання» в інформатиці?a.
Це думка, яку може висловлювати людина
b.
Це речення, яке містить твердження про певний об’єкт або про зв’язки між об’єктами
c.
Фрагмент алгоритму, який містить послідовність команд, яка виконуватиметься вказану кількість разів
d.
Алгоритм, який обирає сценарій роботи в залежності від умови
Сместиться на (—12,16) Повтори 4 раза Сместиться на (а, Ъ) Сместиться на (—3,1) Сместиться на (2, —2) конец
Дан целочисленный массив . Найти индекс максимального элемента.
Var k, m, t : integer; Dat: array[1.10] of integer; Begin Dat[1] := 36; Dat[2] := 50; Dat[3] := 23; Dat[4] :=41;Dat[5] := 27; Dat[6] := 22;Dat[7] := 59; Dat[8] := 12; Dat[9] := 65; Dat[10] := 35; m := 0; for k := 1 to 10 do if Dat[k] >m then begin m := Dat[k]; t := kend; writeln(‘m = ‘,m, ‘ t= ‘,t) End.