Регистрация
m987m
19.02.2023 16:18
Информатика
Есть ответ 👍

Друзья ! нужно написать программу по созданию смайлика через программу q basik. sсreen 8

195
251
Посмотреть ответы 2

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

aibek6707
aibek6707
4,4(61 оценок)
Тяжелый
danik131
danik131
4,8(7 оценок)
Type   uch=record       fam: string[20];       nam: string[20];       city: string[20];       street: string[20];       numb: string[8]   end; var   f: file of uch;   buch: uch; { буфер }   c: string; begin   assign(f,'uch.txt');   reset(f);   write('введите название города: '); readln(c);   while not eof(f) do begin       read(f,buch);       if c=trim(buch.city) then           with buch do writeln(fam,' ',nam,' ',street,' ',numb)   end;   close(f) end.

Популярно: Информатика