Создать любой типизированный файл ввести туда любую строку и подсчитать количество пробелов.их количество вывести в выходной файл. !

125

264

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

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

zhenyakozyrkova

Информатика

4,8(59 оценок)

Var t: text; s: string: i,b: integer; begin readln(s); {ввод строки} i: =0; b: =pos(' ',s); while b< > 0 do begin inc(i); delete(s,b,1); b: =pos(' ',s); end; assign (t, 'c: \primer.txt'); {соединение с файлом primer.txt} rewrite(t); {подготовка к записи в файл} write(t,i); {запись в файл значение переменной "i"} close(t); {завершение работы с файлом} end. создавать файл не обязательно, программа сама его создаст. оцените мой ответ если это то, что вам нужно.

dasha098685674

Информатика

4,5(36 оценок)

Program diktant; var a: array[1..20] of integer; i,a,b,c,d: integer; begin for i: =1 to 20 do begin write ('введите оценку ',i,'-го ученика: '); readln (a[i]); end; for i: =1 to 20 do begin case a[i] of 2: a: =a+1; 3: b: =b+1; 4: c: =c+1; 5: d: =d+1; end; end; writeln ('количество учеников, получивших 2, равно ',a,', 3 - ',b,', 4 - ',c,', 5 - ',d); end.