Статистика
Всего в нашей базе более 4 327 657 вопросов и 6 445 963 ответов!

1)for i:=a to b do

5-9 класс

if (i mod 2 =0) and (i mod 3 =0)
then writeln(i)

Построить блок-схему

2)Program e1;
Var b,c,d:real;
Begin
Read (b,c);
D:=sgrt(sgr(b) – 4*c);
Writeln (`x1=` ,(-b+d)/2, ` x2=` , (-b-d)/2
End

Построить блок-схему Заранее Всем большое спасибо

Maksimka34 23 янв. 2015 г., 19:35:04 (9 лет назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
Olya161197
23 янв. 2015 г., 21:10:14 (9 лет назад)

Как то так, наверное. )))

Ответить

Другие вопросы из категории

На диск можно записать 750 мб. информации, после размещения на диск 5-и одинаковых по обьему видио роликов на нем осталось 350 мб. свободного места.Каков

обьем 1-го роликав килобайтах и сколько рисунков рисунков было 2048кб можно разместить на свободной части диска

Переведите

1.2 кбайт= бит
2.14571 бит= кбайт
3. 512 мбайт = гбайт

Сообщение о том что из корзины достали красный шар несет 3 бита информации.Сколько в корзине шаров

Читайте также

Значение двух массивов А {1..100} и B {1..100} задаются с помощью следующего фрагмента программы:for n:=1 to 100 do A

{n} := (n-80)*(n-80);

for n:=1 to 100 do

B {101-n} :=A {n};

Какой элемент массива В будет наибольшим?

1) В {1} 2) B {21} 3) B {80} 4) B {100}

Перепишите программу на Паскале, исправив ошибки: Program massiv; Var a:array(-10..10) of integer; Begin For i:=1 to 20

Do

Read(a[i]);

For i:=1 to 20 Do

a[i]:=a[i]/10;

For i:=1 to 20 Do

Write(a[i])

End.

Добрый день,помогите с паскалем

Нужно размножить снежинку и чтобы она появлялась в рандомных местах
Uses GraphABC;
var y, i, x: integer;
begin
moveto(0,320);
lineto(2000,320);
Line(120,100,80,140);
Line(120,100,160,140);
Line(120,160,80,200);
Line(120,160,160,200);
Line(120,220,80,260);
Line(120,220,160,260);
Line(120,100,120,320);


Rectangle(260,180,400,320);
Line(260,180,340,100);
line(340,100,400,180);
Rectangle(300,220,340,260);
Line(300,240,340,240);
line(320,220,320,260);
Rectangle(300,280,340,320);








for i := 1 to 10 do begin
x := random (1024);
y := random (200);





line(440,60,480,100);
line(440,80,480,80);
line(480,60,440,100);
Line(460,60,460,100);

Rectangle(460,200,500,320);
Line(460,220,500,220);
Line(460,240,500,240);
Line(460,260,500,260);
Line(460,280,500,280);
Line(460,300,500,300);
Line(500,200,560,200);
line(560,200,640,320);
line(500,320,640,320);

Circle(760,280,40);
Circle(760,220,20);
Circle(760,190,10);


Line(500,120,540,120);
line(600,20,600,60);
Line(600,180,600,220);
Line(660,120,700,120);
Circle(600,120,40);

FloodFill(140,440,clSkyBlue);
FloodFill(160,380,clSkyBlue);
FloodFill(160,350,clSkyBlue);
FloodFill(320,200,clGray);
FloodFill(310,230,clYellow);
FloodFill(330,230,clYellow);
FloodFill(310,250,clYellow);
FloodFill(330,250,clYellow);
FloodFill(302,20,clSilver);
FloodFill(600,140,clYellow);
FloodFill(320,300,clBrown);
FloodFill(320,160,clRed);
FloodFill(540,250,clTeal);
FloodFill(480,210,clMaroon);
FloodFill(480,230,clMaroon);
FloodFill(480,250,clMaroon);
FloodFill(480,270,clMaroon);
FloodFill(480,290,clMaroon);
FloodFill(480,310,clMaroon);


end;
end.

Помогите пожалуйста с информатикой

Требуется заполнить массив именно так:
X = [3 4 7 8 11 12]
Какой оператор надо поместить в тело цикла вместо многоточия?
for k:=1 to 6 do begin
...
end;
1) X[k] := 3*k - k mod 2
2) X[k] := 2*k + k mod 2
3) X[k] := 2*k - k mod 2
4) X[k] := 2*k + k div 2
5) X[k] := 2*(k - 1)
Ответ -?
mod(берется остаток)
div(целое число берется)

Помогите пожалуйста ! срочно надо!!!...в заданной последовательности целых чисел определите сумму элементов кратных 10! пример задачки вот именно под

типо по такой же системе которую щас напишу! program Maximum; i,n,max:integen; begin writeln ( 'введи элементы массива для поиска максимума'); for i:=1 to 10 do begin write ('a [', i ,']=');readln (a [ i ] ) ;end; max:=a[1]; for i = 2 to 10 do if a [ i ] > max then begin max:=a [ i ] ; n:= i ; end; writeln ('найти наибольший элемент ',max ,' под номером ', n); вот наподобие этого примера нужно построить мою задачу! в заданной последовательности целых чисел определите сумму элементов кратных 10. Помогите пожалуйста!!!



Вы находитесь на странице вопроса "1)for i:=a to b do", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.