Математика:ложное4+3=5, истинное 4+4=8 Биология:ложное животные это неживая природа,истинное биология это система наук, объектами изучения которой являются живые существа их взаимодействие с окружающей средой Информатика: ложное информатика - наука о термической обработке металлов, истинное информатика-наука о методах и процессах сбора, хранения, обработки, анализа и оценки информации История-ложное: первая мировая война началась 7 августа 1920,истинное первая мировая война началась 28 июля 1914 География-ложное Эльбрус — высочайшая горная вершина Европы, истинное Эльбрус – не высочайшая горная вершина Европы Литература-ложное:С.Есенин-драматург,истинное А.Пушкин-поэт-драматург
1) на Pascal: var t,i,j:integer; a:array[1..4]of integer; begin for i:=1 to 4 do begin write('Vvedite ',i,'-i 4islo: '); readln(a); end; for i:=2 to 4 do for j:=4 downto i do if a[j-1]>a[j] then begin t:=a[j-1]; a[j-1]:=a[j]; a[j]:=t; end; writeln('Raspolagaem 4isla v poryadke vozrastaniya:'); for i:=1 to 4 do writeln(a); readln; end.
2) на С: #include <stdio.h> #include <conio.h> void main(void){ int n,a,b,c,d; printf("\nVvedite 4x-znachnoe chislo n: "); scanf("%i", &n); a=n/1000; b=(n-a*1000)/100; c=(n-a*1000-b*100)/10; d=n-a*1000-b*100-c*10; if (a+b==c+d) printf("true"); else printf("false"); getch();
var n,i:integer;
begin
n:=0;
for i:=-11 to 100 do
if i mod 4=0 then n:=n+1;
writeln(n);
end.
Тестовое решение:
28