Задать вопрос!

Задать вопрос!

Все категории

Анастасия2000

4 года назад

15

Составите программу на Паскаль, пожалуйста, номер 15

Составите программу на Паскаль, пожалуйста, номер 15

Информатика

1 ответ:

Елена Куруоглу4 года назад

0 0

Подробный ответ внутри во вложении

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

Какое устройство памяти самое «быстрое»

Геннадий Васильев...

Жёсткий диск это я так помню

0 0

4 года назад

Напишите программу, которая в последовательности целых чисел определяет количество чётных чисел, кратных 7. Программа, получает

Верба79 [14.8K]

#include <iostream>

using namespace std;

int main()

{

int a,k;

k=0;

cin>>a;

while(a!=0)

{

if(a%14==0)

k++;

cin>>a;

}

cout<<k;

return 0;

}

0 0

4 года назад

Найти сумму двух наибольших из трех заданных чисел. В Паскале.

Юрий Лукьянов

Var
    a, b, c, t: integer;

begin
    readln(a, b, c);
    if c > b then begin
        t := b;
        b := c;
        c := t;
    end;

    if c > a then begin
        t := a;
        a := c;
        c := t;
    end;
    writeln(a + b);
end.

0 0

4 года назад

ИНФОРМАТИКА И ИКТ. часть 2 . 4 класс. Бененсон Е.П., А.Г. Паутова. Составить алгоритм создания рисунков в графическом редакторе

abzalhic [7]

Алгоритм месяца Начало

1.нарисовать линию

2.Затем оттянуть её( сделать полукругом

3. Взять снова эту линию и повторить то же самое

4.Выполнить заливку синим цветом

конец

0 0

3 года назад

Прочитать ещё 2 ответа

8 задание, кто понимает в информатике хорошо, напишите пожалуйста.

Olegg62 [21]

Program NoName;
var num: integer;
x, y: real;
Begin
readln(num);
if (num>=10)and(num<=99)then
begin
x := trunc(num/10);
y := (num/10-trunc(num/10))*10;
writeln(x+y);
writeln(x*y);
writeln(y*10+x);
end;
end.

0 0

4 года назад

Прочитать ещё 2 ответа