var i,a,b:integer; x: array[1..15] of integer; begin a:=0; b:=0; for i:=1 to 15 do begin begin x[i]:=random(15); write(x[i]:4); end; if (x[i]>=0)and(x[i] mod 3=0) then b:=b+1; end; writeln; writeln; for i:=1 to 10 do begin a:=a+x[i]; end; write('суммa = ',a); end.
--{
program zadacha (input, output) ; (ввод-вывод элементов массива} var a: array [1..10] of integer; i: integer; begin randomize; for i:=1 to 10 do begin a[i]:=random(30) ; writeln ('A(' I, ')=', a[i]) end end.
Меньше в доту катай, все знать будешь :) 1) uses crt; var s,s1,s2,s3,r1,r2:real; begin writeln ('Введите радиус первого (маленького) круга:'); read (r1); writeln ('Введите радиус второго (Большего, чем первый) круга:'); read (r2); //pi - 3.14 s:=3.14*r1*r2 ; writeln (s); //s1 - Площадь первого круга, s2 - второго, s3 - кольца s1:=3.14*sqr(r1); s2:=3.14*sqr(r2); if (s1=0) or (s2=0) then writeln ('Одна из площадей равна нулю') else begin s3:=s2-s1 ; writeln (s3); end end.
2) uses crt; var x,y,x1,y1 :integer; begin writeln ('Введите целое значение x:'); // В программе используются только целые числа !! read (x); if (x-1)<0 then y:=4 else y:=3; writeln (y); end.
3)uses crt; var a,b,c:real ; begin writeln ('Последовательно введите 3 числа :'); read (a,b,c); if (a<>b) and (b<>c) and (a<>c) then writeln ('Числа не равны') else if (a=b) and (b=c) and (a=c) then writeln ('Числа все равны между собой') else if (a=b) and (b<>c) then writeln (c) else if (a=c) and (c<>b) then writeln (b) else if (b=c) and (c<>a) then writeln (a) end.
P.s. Писал на Pascal ABC. Блок-схему сделаешь сам, она не сложная. Удачи, инвакир :D
Заметим, что числа образуют арифметическую прогрессию, а её сумма известна: Поэтому два варианта программы: один вычисляет сумму накоплением, второй сразу определяет результат по формуле. Хороший пример того, что программист должен знать математику.
var n, i, s: integer;
begin Write('Введите натуральное число: '); Readln(n); if (n mod 2) = 0 then begin s := 0; for i := 1 to n do s := s + i; Writeln('Сумма чисел от 1 до ', n, ' равна ', s) end else Writeln('Введено нечетное число') end.
Тестовое решение:
Введите натуральное число: 8 Сумма чисел от 1 до 8 равна 36
var n, s: integer;
begin Write('Введите натуральное число: '); Readln(n); if (n mod 2) = 0 then Writeln('Сумма чисел от 1 до ', n, ' равна ', ((1 + n) * n) div 2) else Writeln('Введено нечетное число') end.
Тестовое решение:
Введите натуральное число: 8 Сумма чисел от 1 до 8 равна 36
var
i,a,b:integer;
x: array[1..15] of integer;
begin
a:=0;
b:=0;
for i:=1 to 15 do
begin
begin
x[i]:=random(15);
write(x[i]:4);
end;
if (x[i]>=0)and(x[i] mod 3=0) then
b:=b+1;
end;
writeln;
writeln;
for i:=1 to 10 do
begin
a:=a+x[i];
end;
write('суммa = ',a);
end.
--{
program zadacha (input, output) ; (ввод-вывод элементов массива}
var
a: array [1..10] of integer;
i: integer;
begin
randomize;
for i:=1 to 10 do
begin
a[i]:=random(30) ;
writeln ('A(' I, ')=', a[i])
end
end.
}--