М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
annwolf246
annwolf246
11.07.2020 11:49 •  Информатика

Написать программу которая выводит на экран в столбик курс евро за последние 7 дней в паскале)поомигете

👇
Ответ:
tata201279
tata201279
11.07.2020
Program z1; var a1,a2,a3,a4,a5,a6,a7:integer; begin writeln('нвведите курс евро через пробел за последние 7 дней'); readln(a1,a2,a3,a4,a5,a6,a7); writeln(a1); writeln(a2); writeln(a3);writeln(a4); writeln(a5); writeln(a6);writeln(a7); end.
4,6(36 оценок)
Ответ:
Getara907
Getara907
11.07.2020

program picaso; uses crt;
type vector=array[1..100] of real;
var a:vector;
    i,n:integer;
begin clrscr;
    writeln('количество дней :');readln(n);
    for i:=1 to n do
    begin
        write('день ',i,' : ');
        readln(a[i]);
    end;
    writeln('Динамика курса EUR');
    for i:=1 to n do
        writeln(a[i]:4:4,' ');
    
    readln;
end.

4,6(42 оценок)
Открыть все ответы
Ответ:
pra02
pra02
11.07.2020

1. Чтобы выбрать фоновый цвет необходимо взять ведро, выбрать цвет , нажать на то место где хочешь раскрасить и всё!

2. Чтобы выбрать основной цвет необходимо взять ведро, выбрать цвет, нажать на то место где хочешь раскрасить и всё!

3. Чтобы нарисовать  прямоугольник необходимо взять эту фигуру и сделать, или нарисовать при прямых линий или кисточек.

4. Тоже самое что и 3.

5. Чтобы нарисовать овал необходимо взять эту фигуру и сделать, или нарисовать при кривых линий или кисточек.

6. Тоже самое что и 5.

Всё это через PAINT.

4,4(45 оценок)
Ответ:
Drake1111
Drake1111
11.07.2020
1)
var x:integer;
begin
read (x);
if (x=12) or (x=1) or (x=2) then writeln ('Зима');
 if (x=3) or (x=4) or (x=5) then writeln ('Весна'); 
 if (x=6) or (x=7) or (x=8) then writeln ('Лето'); 
 if (x=9) or (x=10) or (x=11) then writeln ('Осень'); 
end.
2)
var K,a:integer;
begin
readln(K);
a:=K mod 10;
if (K=11) or(K=12) or (K=13) or (K=14) then writeln ('У меня ',K,' друзей') else
begin
if (a=1) then writeln ('У меня ',K,' друг');
if (a=0) or ((a>=5) and (a<=9)) then writeln ('У меня ',K,' друзей');
if (a>=2) and (a<=4) then writeln ('У меня ',K,' друга');
end;
end.
4,6(96 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ