Составьте программу на языке Паскаль для решения квадратного уравнения с разветлением

Скажите сработает ли программа в Паскале program z1; var i: integer; begin for i:= 100 to 999 do if (( i mod 2 = 0) and ( i mo

SwollenMonkey [743]

98% что программу ты написал правильно, просто я Паскаль немного забыл , но основное помню

0 0

1 год назад

Написать программу, которая считает и выводит на экран сумму всех целых чисел из промежутка [A, B]. Числа A и B задает пользоват

Анатолий - К [91]

program Cikle;
uses crt;
var a,b,i,k:integer;
Begin
clrscr;
write('Введите А: '); readln(a);
<span>write('Введите B: '); readln(b);
</span>if a>b then begin i:=a; a:=b; b:=i end;
{_______________________________________}
{1 способ реализации - цикл for}
k:=0;
for i:=a to и do k:=k+i;
{_______________________________________}
{2 способ реализации - цикл с предусловием while}
k:=0;
while a<=b do begin
k:=k+a;
a:=a+1 end;
{_______________________________________}
{3 способ - цикл с постусловием repeat}
k:=0;
repeat
k:=k+a;
a:=a+1;
until a>b;
{_______________________________________}
{Окончание программы одинаковое для всех способов}
Writeln('Сумма элементов в интервале [A;B] равна ', k)
readln
End.

0 0

4 года назад

Определите, сколько элементов массива А[1..8] не превышают заданного числа 10.

serdyukova [52]

Ответ:

Все, в чем прикол? Все числа от 1 до 8 меньше 10

0 0

4 года назад

100 баллов . Написать программу на русском я зыке для трех фигур в кумире , чертежник . Помогите , пожалуйста

BaZZZZZ

Ответ:

3.

алг фигура

нач

сместиться на вектор(2,0)

сместиться на вектор(0,2)

сместиться на вектор(2,0)

сместиться на вектор(0,-2)

кон

4.

использовать Чертежник

алг

нач

опустить перо

цел i

нц для i от 1 до 5

фигура

кц

поднять перо

кон

алг фигура

нач

сместиться на вектор(2,0)

сместиться на вектор(0,2)

сместиться на вектор(2,0)

сместиться на вектор(0,-2)

кон

5.

использовать Чертежник

алг

нач

опустить перо

забор

робаз

поднять перо

кон

алг робаз

нач

цел i

нц для i от 1 до 5

аругиф

кц

кон

алг аругиф

нач

сместиться на вектор(-2,0)

сместиться на вектор(0,-2)

сместиться на вектор(-2,0)

сместиться на вектор(0,2)

кон

алг забор

нач

цел i

нц для i от 1 до 5

фигура

кц

кон

алг фигура

нач

сместиться на вектор(2,0)

сместиться на вектор(0,2)

сместиться на вектор(2,0)

сместиться на вектор(0,-2)

кон

0 0

4 года назад

Нужна помощь )) если не сложно с коментариями Описать функцию Transform(n), которая "припишет" к числу n по единичке в начале и

klava2583 [37]

Function Transform(n:longint):longint;
Var
   k,B:longint;
Begin
B:=n;
k:=1;
While B <> 0 do
   Begin
   k:=k*10;
   WriteLn('k = ',k);
   B:=B div 10;
   End;
if n >= 0 then
   Begin
   WriteLn('n:= k + n = ',k,' + ',n,' = ',n+k);
   WriteLn('n:= 10*n + 1 = ',10*(k+n),' + ',1,' = ',(k+n)*10+1);
   Transform:=(k+n)*10+1
   End;
End;
Var
   A:longint;
Begin
Write('Введите целое число: ');ReadLn(A);
WriteLn(Transform(A))
End.

0 0

4 года назад