Регистрация
mot1475
08.07.2020 02:46
Информатика
Есть ответ 👍

То создал самый первый компьютер и как он назывался?

253
468
Посмотреть ответы 3

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

Ааааа111235
Ааааа111235
4,8(84 оценок)
Говард эйксон     марк 1-название
Fuvhrcsghinm
Fuvhrcsghinm
4,7(93 оценок)
Паскаль.а назывался колосс
тамок
тамок
4,5(37 оценок)
Program telegraf2014; uses crt; label m; var   a: array[1..32] of string;   i, j: integer;   t,s: string; begin    a[1] : = '.-'; a[2] : = ''; a[3] : = ''; a[4] : = ''; a[5] : = ''; a[6] : = '.'; a[7] : = ''; a[8] : = ''; a[9] : = '..'; a[10] : = ''; a[11] : = ''; a[12] : = ''; a[13] : = '--'; a[14] : = '-.'; a[15] : = ''; a[16] : = ''; a[17] : = ''; a[18] : = ''; a[19] : = '-'; a[20] : = ''; a[21] : = ''; a[22] : = ''; a[23] : = ''; a[24] : = ''; a[25] : = ''; a[26] : = ''; a[27] : = ''; a[28] : = ''; a[29] : = ''; a[30] : = ''; a[31] : = ''; a[32] : = '';     m: clrscr;       gotoxy(30, 1);       writeln('это программа телеграф');       gotoxy(18, 2);       writeln('введите телеграфный код');       readln(t);       repeat         j: =pos(' ',t);         if j> 0 then s: =copy(t,1,j-1)             else               begin               s: =t;               t: ='';               end;         delete(t,1,j);         for i: =1 to 32 do           if a[i]=s then write(chr(i+223));         until t='';       readln;         goto m; end.

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