Задать вопрос
29 ноября, 10:42

Условие: Пользователь вводит фамилию и класс, программа должна вывести сообщение "Фамилия ... - класс ...". Вместо многоточия должны быть выведены соответствующие значе

ния.

Предусмотрите возможность вывода текста разными цветами (например, фамилия - синий, класс - красный)

Целая прога мне не надо, вот я сама написала, мне только надо чтобы в составе одной и той же строки строки фамилия выводилась одним цветом, а имя другим

Program z4;

Uses GraphABC;

var fam, klass, s:string;

begin

writeln ('Bведите фамилию') ;

readln (fam) ;

writeln ('Bведите класс') ;

readln (klass) ;

s:='Фамилия - '+fam+', класс - '+klass;

writeln (s) ;

end.

+5
Ответы (1)
  1. 29 ноября, 12:23
    0
    Для чего графический модуль подключаете?

    Все можно сделать проще.

    Program z4;

    Uses crt;

    var fam, klass : string;

    begin

    write ('Bведите фамилию: ') ;

    readln (fam) ;

    write ('Bведите класс: ') ;

    readln (klass) ;

    textcolor (blue) ;

    write ('Фамилия - ', fam) ;

    textcolor (red) ;

    writeln (' класс - ', klass) ;

    end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Условие: Пользователь вводит фамилию и класс, программа должна вывести сообщение "Фамилия ... - класс ...". Вместо многоточия должны быть ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
Сделать так чтобы Writeln был заменен другим словом и повторялься не больше двух раз program choise; var N_M:integer; writeln (' введи номер месяца ') ; readln (N_M) ; case N_M of 1:writeln (' январь ') ; 2:writeln (' февраль ') ;
Ответы (1)
Запиши программу в Паскале для вычисления площади прямоугольника со сторонами c и m. 1) begin writeln ('Введи длину и ширину прямоугольника c и m') ; readln (c, m) ; s:=c*m; writeln ('s=', s) ; readln; end.
Ответы (1)
Помогите объяснить задачу! Program String29; var otvet:String; i:integer; S0, S:String; C:char; begin Writeln ('Введите строкy S') ; readln (S) ; Writeln ('Введите строкy S0') ; readln (S0) ; Writeln ('Введите символ C') ; readln (C) ;
Ответы (1)
Как их сделать вместе чтобы работало Uses crt; var a, i:byte; s:real; begin clrscr; for i:=1 to 4 do begin writeln ('vvod') ; readln (a) ; if a mod 5=0 then writeln ('Число ', a,' кратно 5 ') else writeln ('Число ', a,' не кратно 5') end; end.
Ответы (1)
Что я неправильно написал? var a, b, c, d: real; begin writeln (' введи число a') ; readln (a) ; writeln ('введи число b') ; readln (b) ; writeln ('введи число c') ; readln (c) ; d:=a; a:=c; writeln (a) ; c:=b; writeln (c) ; b:=d; writeln (b) ; end.
Ответы (1)