| Atbilžu arhīvs | № 65349, Informātika, 10 klase Добрый день!
Помогите составить блок схему.
Нужно ввести 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, Informātika, 11 klase Nepieciešams darbs excel tādu pašu saturu! | | |
| |
paliidziiba01 | Skolēnu kavējumi | | |
| |
Lachuks | Failā! | | |
| |
Geimeris | Geimeris | |
| № 69079, Informātika, 11 klase Nepieciešams darbs excel tādu pašu saturu! | | |
| |
Lachuks | Skolēna kavētās stundas
Turpinājums failā. | |
| № 71435, Informātika, 12 klase напишите программу, которая предложит пользователю ввести длину строки 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, Informātika, 12 klase 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, Informātika, 11 klase 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, Informātika, 11 klase 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, Informātika, 12 klase Напишите пожалуйста программу в Паскале ,которая бы содержала и функцию и процедуру | | |
| |
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, Informātika, 12 klase Напишите пожалуйста программу в Паскале ,которая бы содержала и функцию и процедуру | | |
| |
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, Informātika, 12 klase 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
Turpinājums failā. | |
|
|