Ребята Определите значение переменной после выполнения алгоритма:
Алгоритм
a:= 4
b:=69 mod a
b:=b*7
a:=b div 3 - 2
4. Что будет выведено на экран после выполнения фрагмента программы:
begin
a:=3;
if a>3 then a:=5*а else a:=sqr(a);
writeln (a);
end.
5. Запишите значения элементов массива, сформированного следующим образом:
for i:=1 to 10 do c[i]:=2*i - 1
i 1 2 3 4 5 6 7 8 9 10
C[i]
6.Переведите числа в десятичную систему счисления:
3158
4D16.
7. Скорость передачи данных через ADSL-соединение равна 64000 бит/c. Через данное соединение передают файл размером 625 Кбайт. Определите время передачи файла в секундах.
8. Доступ к файлу www.txt, находящемуся на сервере ftp.net, осуществляется по протоколу http. В таблице фрагменты адреса файла закодированы буквами от А до Ж. Запишите последовательность этих букв, кодирующую адрес указанного файла.
A .txt
Б http
В /
Г ://
Д .net
Е www
Ж ftp
9. В таблице приведены за к поисковому серверу. Расположите обозначения за в порядке возрастания количества страниц, которые найдет поисковый сервер по каждому за Для обозначения логической операции “ИЛИ” в за используется символ |, а для логической операции “И” – символ&.
А разведение & содержание & меченосцы &сомики
Б содержание & меченосцы
В (содержание & меченосцы) | сомики
Г содержание & меченосцы &сомики
10.Какая формула будет получена при копировании в ячейку Е4, формулы из ячейки Е1
fX E1 = $A$1*C1
A B C D E
1 26 17 9 29 234
2 88 9 12 37 792
3 42 57 81 20 378
4 15 22 49 21
12. Написать программу, которая заполнит массив (состоящий из 10 чисел) случайными числами из полуинтервала (-50;50]. Программа должна выводить числа на экран, сумму отрицательных и сумму положительных элементов массива.
на Free Pascal
Объяснение:
var
a : integer;
n, i, big, nc, ncount : integer;
begin
writeln('Введите количество чисел :');
readln(n);
big := 0;
nc := 0;
ncount := 0;
for i := 1 to n do begin
writeln('Введите ', i, ' число:');
readln(a);
if a>20 then
big := big + a;
if (a mod 2) <> 0 then begin
nc := nc + a;
inc(ncount);
end;
end;
writeln('Сумма чисел > 20 = ', big);
writeln('Среднее арифметическое ',ncount,' нечётных чисел =', nc/ncount:2:2);
end.
Решение Pascal
Delphi/Pascal
program Case5;
var
N,A,B:Integer;
begin
Write('Введите номер действия: ');
Readln(N);
Write('Введите число A: ');
Readln(A);
Write('Введите число B: ');
Readln(B);
Case N of
1: Writeln(A+B);
2: Writeln(A-B);
3: Writeln(A*B);
4: Writeln(A/B);
end;
end.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
program Case5;
var
N,A,B:Integer;
begin
Write('Введите номер действия: ');
Readln(N);
Write('Введите число A: ');
Readln(A);
Write('Введите число B: ');
Readln(B);
Case N of
1: Writeln(A+B);
2: Writeln(A-B);
3: Writeln(A*B);
4: Writeln(A/B);
end;
end.
Решение C
C
#include <stdio.h>
int main(void)
{
system("chcp 1251");
int n;
float a,b;
printf("N:") ;
scanf ("%i", &n);
printf("A:") ;
scanf ("%f", &a);
printf("B:") ;
scanf ("%f", &b);
switch (n) {
case 1:
printf("%f\n",a+b) ;
break;
case 2:
printf("%f\n",a-b) ;
break;
case 3:
printf("%f\n",a*b) ;
break;
case 4:
printf("%f\n",a/b) ;
break;
}
return 0;
}
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
#include <stdio.h>
int main(void)
{
system("chcp 1251");
int n;
float a,b;
printf("N:") ;
scanf ("%i", &n);
printf("A:") ;
scanf ("%f", &a);
printf("B:") ;
scanf ("%f", &b);
switch (n) {
case 1:
printf("%f\n",a+b) ;
break;
case 2:
printf("%f\n",a-b) ;
break;
case 3:
printf("%f\n",a*b) ;
break;
case 4:
printf("%f\n",a/b) ;
break;
}
return 0;
}
Объяснение: