Что будет выведено на экран в результате выполнения программы, если в ответ на приглашение введено слово cat? var x,y: char; begin writeln (‘введите несколько символов’); readln (x,y); writeln (x,y,y); end. а) cat б) ccc в) caa г) ca 2.как будут выведены значения переменных а и в операторами writeln (a); writeln (b); а) через строку; б) через пробел в) в столбик г) слитно 3.какой тип данных в языке pascal предназначен для хранения символьной информации? а) real б) integer в) char г) byte 4. есть ли ошибки в записи команды: readln (введи радиус, r) а) нет ошибок б) пояснительный текст не заключен в апострофы в) пояснительный текст не нужен г) лишнее слово “введи” 5. при выполнении операции присваивания символа переменной а) символ заключается в кавычки б) символ записывается через пробел от знака присваивания в) символ заключается в апострофы г) символ записывается в скобках по теме «обработка текстовых данных» 1. составить программу подсчета количества вхождений буквы “а” в заданном тексте. 2. даны две строки, выяснить ли их длины.

207

362

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

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

Sofa2021

Информатика

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

1- в) caa 2 - в) в столбик 3 - в) char4 - в) пояснительный текст не нужен 5 - в) символ заключается в апострофы 1) var s1: string; i,a: integer; begin writeln ('введите текст'); readln (s1); for i: =1 to length(s1) do if (s1[i]='а')or(s1[i]='a') then a: =a+1; writeln('количество букв а в тексте: ',a); end. 2) var s1,s2: string; begin writeln ('введите первую строку'); readln (s1); writeln ('введите вторую строку'); readln (s2); if length(s1)=length(s2) then writeln('длины строк ') else writeln('длины строк не ') end.

kamilla169

Информатика

4,7(11 оценок)

Var a : array[1..20] of integer; i, s1, s2 : integer; begin массив s1 : = 0; s2 : = 0; for i : = 1 to 10 do s1 : = s1 + a[i]; for i: = 11 to 20 do s2 : = s2 + a[i]; writeln('сумма 1-10 = ', s1, '; сумма 11-20 = ', s2); end.