Задача 1.1
#include <iostream>
#include <cmath>
using namespace std;
int main()
{
int a1, a2, a3, a4,sum = 0;
cin >> a1 >> a2 >> a3 >> a4;
if (a1 > 7){
sum = sum + a1;
}
if (a2 > 7){
sum = sum + a2;
}
if (a3 > 7){
sum = sum + a3;
}
if (a4 > 7){
sum = sum + a4;
}
cout << sum << endl;
return 0;
}
Задача 1.11
#include <iostream>
#include <cmath>
using namespace std;
int main()
{
int a1, a2, a3, a4,sum = 0;
cin >> a1 >> a2 >> a3 >> a4;
if(a1 < 0 || a1 < 40){
cout << a1 << endl;
}
if(a2 < 0 || a2 < 40){
cout << a2 << endl;
}
if(a3 < 0 || a3 < 40){
cout << a3 << endl;
}
if(a4 < 0 || a4 < 40){
cout << a4 << endl;
}
return 0;
}
'MS-DOS QBasic 1.0
DIM a(1 TO 20) AS SINGLE, b(1 TO 20) AS SINGLE
CLS
RANDOMIZE TIMER
PRINT "Massiv a"
j = 0
FOR i = 1 TO 20
a(i) = 10 * RND - 5
PRINT a(i);
IF a(i) > 0 THEN
j = j + 1
b(j) = a(i)
END IF
NEXT i
FOR i = 1 TO 20
IF a(i) <= 0 THEN
j = j + 1
b(j) = a(i)
END IF
NEXT i
PRINT
PRINT "Massiv b"
FOR i = 1 TO j
PRINT b(i);
NEXT i
PRINT
<em><u>Тестовое решение:</u></em>
Massiv a
-1.726111 1.835247 -4.176585 4.217188 4.836039 4.953975 .551706 .2788973
-1.588834 1.447831 1.91242 -3.830101 3.318729 1.483444 .0306803 -.3601742
1.934826 1.057516 -2.458627 .9090161
Massiv b
1.835247 4.217188 4.836039 4.953975 .551706 .2788973 1.447831 1.91242
3.318729 1.483444 .0306803 1.934826 1.057516 .9090161 -1.726111 -4.176585
-1.588834 -3.830101 -.3601742 -2.458627
Гипертекст - это информация в виде документов, имеющих ссылки на другие документы.
Var i:integer;
begin
for i:=1000 to 9999 do
if i mod 134 = 11 then writeln(i);
end.
Результат (только начало и конец, т.к. чисел много):
<span>1083
1217
1351
...
</span><span>9659
9793
9927</span>
Var a,s:integer;
begin
a:=3000
while a<5000 do begin
a:=a+(a*0,2);
s:=s+1;
end;
print(s);
end.