Пять верст до небес и все лесом. Эка верста выросла (как Коломенская верста) . За семь верст киселя хлебать. Ты от дела на недельку, а оно от тебя на саженьку. Видеть на сажень сквозь землю. Загадка разгадка да семь верст правды. Каждый купец на свой аршин мерит. Прямой, будто аршин проглотил. Семи пядей во лбу. Сам с ноготок, а борода с локоток. От горшка два вершка, а уже указчик. Полено к полену - сажень. Москва верстой далека, а сердцу рядом. Любовь верстами не меряется. Сто верст молодцу не крюк. От слова до дела - целая верста. Верстой ближе - пятаком дешевле. Жили с локоть, а осталось с ноготь. В чужих руках ноготок с локоток. Дай с ноготок, запросит с локоток. Семь аршин говядины да три фунта лент (о бессмыслице)
Программа на языке Турбо Паскаль 7.0 Вычисляет произведения всех нечетных двухзначные чисел, введенных с клавиатуры: program q; // Начало любой программы uses crt;// Подключение модулей var a,a1,b,c: integer; // Ввод переменных целочисленного типа begin // Начало исполняемого кода c:=1; // Присваиваем переменной с, хранящей произведение значения 1 Если этого не сделать, то не сработает счетчик. writeln;// Выводит надпись readln (a1);// Считывает число, каторое вы ввели и присваевает переменной a1 его значение for a:=1 to a 1 do begin// Начинает цикл от, повторяющийся нужное количества раз. writeln;// Выводит надпись readln (b);// Считывает введенное число и присваевает его значение переменной b if (b<100) and (b>9) and (b mod 2=1) then c:=c*b;//Оператор условия. Проверяет, двузначное ли это число ( больше 9 и меньше 100 ) и проверяет,нечетное ли оно по остатку от деления на 2 //Если да,то присваевает с значение c*b.В первый раз это будет 1*b, во второй,то,что получилось, умножить на следующее b и т.д. end;// Заканчивает цикл writeln( 'Произведение равно: ', c);//Выводит результат readln;//Ждет нажатия на enter end.//Конец программы
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
