Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
ruslanlezgi
10.04.2023 07:28 •
Информатика
Python написать программы для построения следующих фигур (исполнитель черепашка)
Показать ответ
Ответ:
цветок82
12.02.2020 10:06
1.
var
s: string;
i, count: integer;
begin
writeln('Vvedite stroky: ');
readln(s);
for i := 1 to length(s) - 2 do
if copy(s, i, 3) = 'abc' then
count := count + 1;
writeln('Kol-vo: ', count);
end.
2.
var
s1, s2: string;
i, len1, len2: integer;
begin
writeln('Vvedite stroky 1: ');
readln(s1);
writeln('Vvedite stroky 2: ');
readln(s2);
len1 := length(s1);
len2 := length(s2);
if len1 > len2 then writeln('1 stroka dlinnee')
else if len1 < len2 then writeln('2 stroka dlinnee')
else writeln('dlini strok ravnie')
end.
3.
var
s1, s2, s3: string;
begin
writeln('Vvedite stroky 1: ');
readln(s1);
writeln('Vvedite stroky 2: ');
readln(s2);
s3 := s1[1] + s1[2] + s2[1] + s2[2];
writeln('Novaja stroka: ', s3);
end.
0,0
(0 оценок)
Ответ:
svetaredkina
21.07.2020 09:56
#include <iostream>
#include <conio.h>
#include <time.h>
using namespace std;
void main()
{
srand(time(NULL));
setlocale(0, "");
int arr[17];
int a, b, chet=0, nechet = 0;
cout << "Введите диапазон ." << endl << "Нижняя граница диапазона: "; cin >> a; cout << "Верхняя граница диапазона: "; cin >> b; cout << endl;
for (int i = 0; i < 17; ++i)
{
arr[i] = a + rand() % (b-a+1);
cout <<" "<<arr[i];
}
for (int i = 0; i < 17; ++i)
{
if (arr[i] % 2 == 0) chet++;
else nechet++;
} if (chet > nechet)
cout << " \n Четных больше";
else if (nechet>chet)
cout << "\n Нечетных больше";
else cout << "\n Одинаковое количество четных и нечетных";
_getch();
}
0,0
(0 оценок)
Популярные вопросы: Информатика
irinacoroleva
25.03.2020 23:26
Что делать если человек упал в обморок .краткая информацея...
sailorproblema
25.03.2020 23:26
Известно, что в ящике лежит 64 шара. из них чёрных 16, белых 16, жёлтых 2, красных 4. какое количество информации несут сообщение о том, что из ящика случайным образом достали...
andreyeses883
06.04.2020 05:48
Составьте блок-схему и напишите программу вычисления площади и гипотенузы прямоугольного треугольника, если известны его катеты....
Arina8987
04.01.2022 00:06
Б/СЗ. Шыгармадағы кейіпкерлер қарым қатынасын отбасылық құндылық тұрғысынан талдап, әдеби эссе жазу жусан иіс...
Доо43
07.02.2021 04:27
Ұшқан ұя» повесінде қандай рухани құндылықтар туралы айтылған? Шығарамада қазақ халықының қандай отбасылық дәстүрлері суреттелген? ...
Serega20032017
03.06.2021 10:06
Use passive voice and rewrite the sentences. 1. People eat 40 million hamburgers every day. 2. People speak English all over the world. 3. The police didn t find the missing girl...
verasokolova16
28.02.2023 11:32
7.. Какое из приведенных предложений правильно разобрано синтаксически?а) Все жаловались на холод, и дождь стучал вокна. (Предложение повествовательное, невосклица-тельное, сложное,...
SmallGeek
21.07.2022 10:39
При сгорании 1,44 г углерода образуется 5,28 г его оксида. Определить эквивалентную массу углерода....
Pilots21
21.07.2022 10:39
Які були господарі? Казка ,, Мишка Богдан Лепкий. (5-7 речень) ів...
ana0stacy
15.02.2023 01:27
Отметь дроби, которые можно представить в виде дроби со знаменателем 4: 4/5 13/52 55/44 15/65 8/52 4/52 8/12...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var
s: string;
i, count: integer;
begin
writeln('Vvedite stroky: ');
readln(s);
for i := 1 to length(s) - 2 do
if copy(s, i, 3) = 'abc' then
count := count + 1;
writeln('Kol-vo: ', count);
end.
2.
var
s1, s2: string;
i, len1, len2: integer;
begin
writeln('Vvedite stroky 1: ');
readln(s1);
writeln('Vvedite stroky 2: ');
readln(s2);
len1 := length(s1);
len2 := length(s2);
if len1 > len2 then writeln('1 stroka dlinnee')
else if len1 < len2 then writeln('2 stroka dlinnee')
else writeln('dlini strok ravnie')
end.
3.
var
s1, s2, s3: string;
begin
writeln('Vvedite stroky 1: ');
readln(s1);
writeln('Vvedite stroky 2: ');
readln(s2);
s3 := s1[1] + s1[2] + s2[1] + s2[2];
writeln('Novaja stroka: ', s3);
end.
#include <conio.h>
#include <time.h>
using namespace std;
void main()
{
srand(time(NULL));
setlocale(0, "");
int arr[17];
int a, b, chet=0, nechet = 0;
cout << "Введите диапазон ." << endl << "Нижняя граница диапазона: "; cin >> a; cout << "Верхняя граница диапазона: "; cin >> b; cout << endl;
for (int i = 0; i < 17; ++i)
{
arr[i] = a + rand() % (b-a+1);
cout <<" "<<arr[i];
}
for (int i = 0; i < 17; ++i)
{
if (arr[i] % 2 == 0) chet++;
else nechet++;
} if (chet > nechet)
cout << " \n Четных больше";
else if (nechet>chet)
cout << "\n Нечетных больше";
else cout << "\n Одинаковое количество четных и нечетных";
_getch();
}