 | Архив решений | № 65349, Информатика, 10 класс
Добрый день!
Помогите составить блок схему.
Нужно ввести 4 числа. Найти сумму четных чисел и нечетных чисел. | | |
| | 
paliidziiba01 | Izveidoju 2 veida formulas. Nezinu, kuras tieši Tev ir nepieciešamas. Viena ir parastā formula, otra ir ar IF
Ja nav grūti, nospied paldies :) | |
| |  № 69077, Информатика, 11 класс
Nepieciešams darbs excel tādu pašu saturu! | | |
| |
paliidziiba01 | Skolēnu kavējumi | | |
| | 
Lachuks | Failā! | | |
| |
Geimeris | Geimeris | |
| № 69079, Информатика, 11 класс
Nepieciešams darbs excel tādu pašu saturu! | | |
| |
Lachuks | Skolēna kavētās stundas
Продолжение в файле. | |
|  № 71435, Информатика, 12 класс
напишите программу, которая предложит пользователю ввести длину строки n и ее члены-целые числа, и отобразит на экране следующую информацию: сам массив, среднее арифметическое всех четных чисел | | |
| |
bronzor | var a:array of integer;
n,i,s,k:integer;
begin
write('Введите количество элементов массива: ');
readln(n);
a:=new integer[n];
for i:=0 to n-1 do read(a[i]);
write ('Массив: ');
for i:=0 to n-1 do write(a[i],' ');
writeln;
for i:=0 to n-1 do
if a[i]>0 then
begin
s:=s+a[i];
k:=k+1
end;
writeln('Среднее арифметическое положительных элементов массива равно: ',s/k:0:3)
end. | |
| № 71437, Информатика, 12 класс
Uzrakstīt programmu,kas
a)uz ekrāna parāda vienu divdemensijas masīvu(5*3),kurā ierakstīti nejauši skaitļi intervālā no 50 līdz 100;
b)masīvā atrod šūnu ar mazāko vērtību.Parāda tos uz ekrāna. | | |
| |
bronzor | const n=5; m=3;
var a:array [1..n,1..m] of integer;
i,j,e:integer;
begin
for i:= 1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=Random(51)+50;
write(a[i,j]:4)
end;
writeln;
end;
e:=a[1,1];
for i:= 2 to n do
for j:=2 to m do
if a[i,j]<e then e:=a[i,j];
writeln ('Mazākais elements: ',e)
end. | |
| | № 71603, Информатика, 11 класс
Tests informātikā. | | |
| |
janka | 1-A; 2-C; 3-D; 4-A; 5-B; 6-B; 7-A; 8-D | | |
| |
paliidziiba01 | A
C
D
A
B
B
A
D | | |
| |
bronzor | 1. A
2. C
3. D
4. A
5. B
6. C
7. A
8. D | |
| № 71614, Информатика, 11 класс
Tests informātikā. | | |
| |
bronzor | 9. B
10. C
11. C
12. A
13. B
14. C
15. C
16. D
17. A
18. D
19. B
20. C
21. B
22. A
23. D
24. B
25. C
26. A
27. D
28. B
29. C
30. B
31. D
32. C | | |
| |
paliidziiba01 | Jautājumos, kuros bija attēli, atstāju tikai tos attēlus, kuri ir pareizās atbildes, savādāk šeit nevarēja pievienot atbildes | |
| № 71715, Информатика, 12 класс
Напишите пожалуйста программу в Паскале ,которая бы содержала и функцию и процедуру | | |
| |
bronzor | Вот ещё версия, вычисление суммы с помощью функции и процедуры.
Program ProcunFun;
Uses Crt;
Var a, b, SumNum : integer;
Procedure Summa1(Var Sum: integer; a, b : integer);
Begin
Sum:= a+b;
End;
Function Sum(a, b : integer) : integer;
Begin
Sum:= a+b;
End;
Begin
ClrScr;
a := 1;
b := 2;
Summa1(SumNum, a, b);
writeln ('Сумма чисел вычисленная с помощью процедуры: ',SumNum);
writeln ('Сумма чисел вычисленная с помощью функции: ',Sum(a, b));
End. | |
|  № 71716, Информатика, 12 класс
Напишите пожалуйста программу в Паскале ,которая бы содержала и функцию и процедуру | | |
| |
paliidziiba01 | Программа C ++ если нужно в одной программе
function Hello(name: string):='Hello ' + name + '!';
procedure How_Are_You(name: string);
begin
Print('How are You?')
end;
begin
var name := 'Vasya';
Print(Hello(name));
How_Are_You(name)
end. | | |
| |
bronzor | var n: string;
procedure foo(str: string);
begin
writeln(str);
end;
function foo1(str: string): string;
begin
foo1:= str;
end;
begin
foo('I am a procedure');
n:= foo1('I am a function');
writeln(n);
end. | |
| | № 71757, Информатика, 12 класс
Lūdzu uzrakstiet programmu,izdariet meiteni(numurs 6 failā) | | |
| |
bronzor | Program meitene;
uses graphABC;
begin
setwindowsize(500,500);
setpenwidth(3);
arc(235,110,40,430,110); // galva
line(220,320,220,400); // kreisā kāja
line(250,320,250,400); // labā kāja
Продолжение в файле. | |
|
|
Начало
Регистрация
Архив
Правила
Статьи
Реклама\Контакты
Напиши нам
