М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
demirooova
demirooova
24.01.2020 04:44 •  Информатика

Есть числовой ряд: , в котором подряд выписаны все двухзначные числа. определить двухзначное число из этого ряда, образованное парой цифр, в которую входит k-ая цифра. k вводится и лежит в диапазоне от 1 до 180. например, если вводится k=3, то в ряду это цифра 1, которая входит в двухзначное число 11.

👇
Ответ:
Program test ;
Var
a:string;
k, i, i1:integer;
Begin
If k<=180 then begin
For i:=1 to 9 do begin
For i1:=0 to 9 do a:=a+str(i*10+i1);
End;
If k mod 2 = 0 then writeln(copy(a,k-1,2));
Else writeln(copy(a,k,2);
End;
Else writeln('Введённое число больше допустимого значения');
End;
4,5(50 оценок)
Открыть все ответы
Ответ:
Парень1231
Парень1231
24.01.2020
1.первое число - целочисленный тип
второе - вещественный
разные диапазоны 
2.1) s := (x1+x2)/2
2) dec(k) или k:=k-1
3) inc(i) или i:=i+1
4) sum := t*kt + r*kr + k*kk (t, r, k - цена одной тетради, ручки, карандаша;  kt, kr, kk - количество тетрадей, ручек и карандашей) 
 
2.
а) значения функции y=х(в квадрате)
var y,x: real
 
б) площади прямоугольника
var a,b,s: real
 
в)стоимости покупки,состоящей из нескольких тетрадей и такого же кол-ва обложек
var kv:integer; st,so,sum: real
 
г)стоимости покупки,состоящей из нескольких тетрадей,нескольких ручек и нескольких карандашей
var kvt,kvr,kvk:integer; st,sr,sk,sum: rea
4,4(66 оценок)
Ответ:
Ddddd46763
Ddddd46763
24.01.2020
1.первое число - целочисленный тип
второе - вещественный
разные диапазоны 
2.1) s := (x1+x2)/2
2) dec(k) или k:=k-1
3) inc(i) или i:=i+1
4) sum := t*kt + r*kr + k*kk (t, r, k - цена одной тетради, ручки, карандаша;  kt, kr, kk - количество тетрадей, ручек и карандашей) 
 
2.
а) значения функции y=х(в квадрате)
var y,x: real
 
б) площади прямоугольника
var a,b,s: real
 
в)стоимости покупки,состоящей из нескольких тетрадей и такого же кол-ва обложек
var kv:integer; st,so,sum: real
 
г)стоимости покупки,состоящей из нескольких тетрадей,нескольких ручек и нескольких карандашей
var kvt,kvr,kvk:integer; st,sr,sk,sum: rea
4,5(67 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ