2) Уровень B.
Код программы:
var a: array[1..10] of integer;
i, kol:integer;
begin
write('Массив: ');
for i:=1 to 10 do begin
a[i] := random(201);
write(a[i], ' ');
end;
kol:=0;
for i:=1 to 10 do begin
if (a[i] div 100) = 0 then
kol := kol + 1;
end;
writeln();
writeln('Двузначных чисел: ', kol);
end.
3) Уровень C.
Код программы:
var a: array[1..10] of integer;
i, kol:integer;
begin
write('Массив: ');
for i:=1 to 10 do begin
a[i] := random(10, 100);
write(a[i], ' ');
end;
kol:=0;
for i:=1 to 9 do begin
if (a[i] + a[i+1]) mod 3 = 0 then
kol := kol + 1;
end;
writeln();
writeln('Таких пар : ', kol);
end.
print("Привет! Я недавно появился в интернете! Я могу рассказать тебе про музыку/игры/кино/книги")
fest = input("Ты хочешь посмотреть мои функции? ")
if fest.lower() == 'да':
print("Круто!")
print("Введи 1, если хочешь узнать об играх")
print("Введи 2, если хочешь узнать о книгах")
print("Введи 3, если хочешь узнать о музыке")
print("Введи 4, если хочешь узнать о кино")
x = int(input("Ввод: "))
if x == 1:
print("Круто! В играх можно классно провести время с друзьями!")
elif x == 2:
print("Книги - наше всё, без книг мы будем никем!")
elif x == 3:
print("Музыка, в наше время музыка очень популярна, послушай хотя бы альбом Деда Мороза!")
elif x == 4:
print("Ух, люблю кино. Боевики, милодраммы, не хочешь сходить как-нибудь? ;)")
print("Отлично, как бы ты оценил меня? Оцени по трём критериям: интерес, веселье, польза")
for i in range(3):
x = int(input("Введи оценку (от 1 до 10) "))
v = int(input(" за оценку, напоследок вычисли мне значение выражения:" (2 * 2)+2))
while v != 6:
print("Неверно, попробуй еще")
v = int(input())
print(" тебе, пока!")
else:
print("Жаль, ну тогда пока :(")
// Внимание! Если программа не работает, обновите версию!
begin
var s:=ReadlnString('Строка:'); // общая часть
// #1
var c1,c2:char;
Write('Введите БЕЗ ПРОБЕЛА исходный и заменяющий символы: ');
Readln(c1,c2);
s:=s.Replace(c1,c2); s.Println;
// #2
s:=s.Where(c->not (c in ['0'..'9'])).JoinIntoString; s.Println;
// #3
var k:=ReadInteger('k=');
s:=s.Batch(k).SelectMany(c->c+NewLine).JoinIntoString(''); s.Println
end.
Пример
Строка: Площадь Чёрного моря 422000 кв.км, Наибольшая глубина 2210 м, средняя — 1240 м.
Введите БЕЗ ПРОБЕЛА исходный и заменяющий символы: гЪ
Площадь ЧёрноЪо моря 422000 кв.км, Наибольшая Ълубина 2210 м, средняя — 1240 м.
Площадь ЧёрноЪо моря кв.км, Наибольшая Ълубина м, средняя — м.
k= 35
Площадь ЧёрноЪо моря кв.км, Наибол
ьшая Ълубина м, средняя — м.