1.
<span>var i:integer;
begin
for i:=10 to 99 do writeln(i);
end<span>.
Результат:
10
11
12
...
98
99
2.
var i:integer;
begin
for i:=10 to 99 do
if i mod 10=5 then writeln(i);
end.
Результат:
15
25
...
95
3.
var i:integer;
begin
for i:=1 to 15 do
write(random(21)+10,' ');
end.
Пример:
<span>25 19 12 11 25 27 30 19 21 19 15 10 14 22 22</span></span></span>
//PascalABC.NET
//Версия 3.3.5, сборка 1650
begin
writeln(' x y');
for var i:=-10 to 10 do writeln(i:2,' ',i*i:3);
end.
Поскольку не указан язык программирования, приведу код программы на языке С++:
#include <iostream>
using namespace std;
int main(){
int one, two, three;
cin >> one >> two >> three;
cout << "Average height: " << (one+two+three)/3 << endl;
return 0;
}
#include <iostream>
#include <stdlib.h>
#include <locale>
#include <math.h>
using namespace std;
int main(){
setlocale(LC_ALL,"");
float x=0,y=0;
cout << "Введите х: ";
cin >> x;
if (x<0)
y = 1/x;
else if (x>6)
y = x*x;
else if (0 <= x <= 6)
y = 5*x+7;
cout << "\n y = ";
cout << y;
}
1.
var k, l, m, n: integer;
begin
readln(k,l,m,n);
if (k+l+m+n mod 2 = 0) then
writeln('поля одного цвета')
else
writeln('поля разных цветов')
end.
2.
uses crt; {В зависимости от компилятора эта строчка может оказаться лишней}
var question, answer: integer;
begin
randomize();
question := random(100);
writeln(question);
readln(answer);
if (question+answer=100) then
writeln('Not bad')
else
writeln('Oops. Right answer is ', 100-question)
end.