Готовые домашние задания. Информатика
ГДЗ по информатике
1
program_urok_6_zadanie1;
uses crt;
var r,h,s:string;
begin
r:='kadabra';
h:='abra';
s:=h+r;
writeln('Ответ',s);
end.
В результате - слово "abrakadabra"
2
Каким будет значение строковой переменной T после выполнения следующих команд?
program urok6_zadanie2;
uses crt;
var s,t:string;
begin
s:'информатика';
t:=s[10]+s[9]+s[2]+s[4]
writeln('Ответ',t);
end.
В результате - слово "кино"
3
Составьте программу, которая предлагает ввести к склавиатуры имя пользователя, а затем приветствует его
program urok6_zadanie3;
uses crt;
var s:string;
begin
writeln('как вас зовут');
readln(s);
writeln('Привет, ',s,'!');
end.
4
Наберите и выполните программу. Проверьте, что результатом выполнения программы будет True, как как отношение "a меньше b" - истинно
program urok6_zadanie4;
uses crt;
begin
writeln('a'<'b');
end.
5
Составьте программу, которая предлагает ввести с клавиатуры две строки a и b, и определяет, равны ли эти строки между собой.
program urok6_zadanie5;
uses crt;
var s1,s2:string;
begin
writeln('введите первую строку');
readln(s1);
writeln('введите вторую строку');
readln(s2);
if (s1=s2) then writeln('строки равны') else writeln('строки не равны');
end.
6
Составьте программу, которая предлагает ввести с клавиатуры две строки, а затем выводит эти строки в алфавитном порядке.
program urok6_zadanie6;
uses crt;
var s1,s2:string;
begin
writeln('введите первую строку');
readln(s1);
writeln('введите вторую строку');
readln(s2);
if (s1<s2) then writeln(s1+ s2) else writeln(s2+s1);
end.
7
Составьте программу получения двух новых слов из слова "информатика"
program urok6_zadanie7;
uses crt;
var s,s1,s2:string;
begin
s:='информатика;'
writeln('сейчас мы из слова',s,' получим два новых слова');
s1:=s[5]+s[1]+s[4];
s2:=s[4]+s[3]+s[5]+s[6];
writeln('первое слово',s1);
writeln('первое слово',s2);
end.
Отзывы и комментарии
ВКонтакте
Комментарии
| < Предыдущая |
|---|
