<span>Задание №1
</span>
var r:integer;
begin
writeln('Введите радиус');
read(r);
writeln('Длина окружности = ',2*pi*r);
writeln('Площадь круга = ',pi*sqr(r));
<span>end.
</span>
Задание №2
var a,d,n:integer;
begin
writeln('Введите первый член, знаменатель, число членов');
read(a,d,n);
writeln('Cумма членов арифметической прогресси = ', 0.5*n*(2*a+(n-1)*d));
<span>end.
</span>
Задание №3
var m,n:integer;
begin
writeln('Введите m и n');
read(m,n);
if m=n then begin
m:=0;
n:=0;
end;
if (m>n) then n:=m
else if n>m then m:=n;
<span>end.
</span>
Задание №4
var a,b,c:integer;
<span>begin </span>
<span>writeln('Введите стороны a,b,c'); </span>
<span>read(a,b,c); </span>
<span>if (a=b) or (b=c) or (c=a) then writeln('Треугольник равнобедренный') </span>
<span>else writeln('Треугольник неравнобедренный'); </span>
<span>end.
</span>
Задание №5
var a,b,c:integer;
<span>begin </span>
<span>a:=0; </span>
<span>c:=0; </span>
<span>repeat </span>
<span>writeln('Введите число'); </span>
<span>read(b); </span>
<span>if b<0 then a:=a+1; </span>
<span>c:=c+1; </span>
<span>until c=3; </span>
<span>writeln('Количество отрицательных = ',a); </span>
<span>end.
</span>
Задание №6
var a,c:integer;
<span>b:real; </span>
<span>begin </span>
<span>writeln('Введите количество часов'); </span>
<span>read(a); </span>
<span>c:=a div 3; </span>
<span>b:=power(2, c); </span>
<span>writeln(b); </span>
<span>end.
</span>
Задание №7
const
<span>n=10; </span>
<span>var a:array [1..10] of integer; </span>
<span>i,k,s:integer; </span>
<span>begin </span>
<span>writeln('Введите k'); </span>
<span>read(k); </span>
<span>writeln('Введите элементы массива'); </span>
<span>for i:=1 to n do begin </span>
<span>read(a[i]); </span>
<span>if a[i] mod k =0 then s:=s+a[i]; </span>
<span>end; </span>
<span>writeln(s); </span>
<span>end.</span>
#include <iostream>
using namespace std;
int main()
{
int input;
cin >> input;
if (input == 1){
cout << "Понедельник";
}else if (input == 2){
cout << "Вторник";
}else if (input == 3){
cout << "Среда";
}else if (input == 4){
cout << "Четверг";
}else if (input == 5){
cout << "Пятница";
}else if (input == 6){
cout << "суббота";
}else if (input == 7){
cout << "Воскресенье";
}
return 0;
}
Uses Crt;
const
n=10;
var
a,b:array[1..n] of integer;
i,k,t:integer;
begin
ClrScr;
Randomize;
for i:=1 to n do begin
a[i]:=Random(50);
Write(a[i],' ')
end;
Writeln;
for i:=1 to n do begin
b[i]:=Random(50);
Write(b[i],' ')
end;
Writeln;
Write('k t='); Read(k,t);
for i:=1 to n do begin
if a[i]>t then a[i]:=a[i]+4;
Write(a[i],' ')
end;
Writeln;
for i:=1 to n do begin
if b[i]>10*k then b[i]:=b[i]+k;
Write(b[i],' ')
end;
Readkey
end.
<u><em>Тестовое решение:</em></u>
1 6 23 12 47 1 44 24 6 18
31 30 30 29 0 3 43 32 46 21
k t=2 20
1 6 27 12 51 1 48 28 6 18
33 32 32 31 0 3 45 34 48 23
Это минимум балов 30)))
п.с. можешь удалить этот коммент!
If(!sysblock && toplivo > 0 && tumbler && temperature <= normalt)
Engine.Start();