profile
Опубликовано 6 лет назад по предмету Информатика от ДАШКАаВ

написать программу которая выводит на экран в столбик курс евро за последние 7 дней В ПАСКАЛЕ)поомигете 

  1. Ответ
    Ответ дан nikaa2013
    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.
  2. Ответ
    Ответ дан igorvoloc

    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.

Самые новые вопросы