задача: напишите программу выводящих на экран список всех программистов и дополнительный список программистов на С++ решить нужно через записи , программу написать на паскаль авс.net сома программа ниже но вместо списка выводится белый экран. то есть программа завершается на слове ввод закончен что не так? Type pr=record nm:string; Ln:string; end; var prog:array[1..3]of pr; i:integer; begin for i:= 1 to 3 do begin Writeln(' Введите Фамилию и имя ',i,'человека'); Readln(prog[i].nm); Writeln(' Введите язык'); Readln(prog[i].Ln); end; Writeln('вВОД ЗАКОНЧЕН'); for i:= 1 to 3 do if prog[i].Ln= 'C ++' then Write(prog[i].Ln); end.

280

321

Посмотреть ответы 1

Ответы на вопрос:

Fizruk115

Информатика

4,4(34 оценок)

Const b=40.81; x=10; pi=3.14; var y,a,f,k,n: real;

150 000+ пользователей

Оформить подписку