Информатика

Вопрос/Задача:

Нарисуйте в центре экрана олимпийские кольца в паскаль

Ответы на вопрос

Ответ
Ответ разместил: Гость

varb: array [1..8] of integer; r,q: integer; begin  for r: =1 to 8 do  begin  q: =0;   read(b[r]);   end;   for r: =1 to 8 do  if b[r] mod 2=1 then q: =q+b[r];   writeln;   writeln('сумма нечетных чисел равна ',q); end.

Ответ
Ответ разместил: Гость

program p_1; var i, n : integer; a, s : real; b : array [1..1000] of real; begin writeln('введите число а'); readln(a); writeln('введите количество значений массива n'); readln(n); write('введите элементы массива b'); for i: =1 to n do readln(b[i]); writeln('первоначальный массив b'); for i: =1 to n do writeln(b[i]); s: =0; for i: =1 to n do if b[i] > a then s: =s+b[i]; writeln('сумма значений =', s); end.

Ответ
Ответ разместил: Гость

var a,b,i,s: integer;

begin

writeln('введите 2 числа');

readln(a); readln(b);

s: =0;

if a< b then

for i: =a to b do

  begin

  if i mod 2 = 0 then

  s: =s+1;

  end;

if a> b then

for i: =b to a do

  begin

  if i mod 2 = 0 then

  s: =s+1;

  end;

writeln(s)

end.

Ответ
Ответ разместил: Диана090980

типо такого, а вы подправьте дальше сами.

 

uses graphabc;

begin

//circle(x,y,r); circle(250,90,45); circle(350,90,45); circle(450,90,45); circle(311,135,45); circle(400,135,45); readlnend.

 

 

Похожие вопросы

Вопросов на сайте: 13542788