В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
StasKir
StasKir
29.06.2022 17:49 •  Информатика

Програма АЛГО

розробіть проект «Правила дорожнього руху» , за яким можна визначити, чи не порушив правила дорожнього руху водій, який проїхав відстань S за час t, якщо на шляху встановлено одне із запропонованих обмежень на швидкість: 40км/год,60км/год,90км/год. Передбачте, що дані вводяться в текстові поля, обмеження обираються за до елементів управління (оберіть самостійно) а результат виводиться у вікні повідомлення

Показать ответ
Ответ:
TheDrever
TheDrever
28.05.2022 12:01

(см. объяснение)

Объяснение:

Напишем программу на Python 3:

k = 0

for i in input():

   if (ord(i) in range(65, 91)) or (ord(i) in range(97, 123)):

       k += 1

print(k)

Задание выполнено!

Комментарий 1:

Замечу, что то же самое легко сделать на паскале:

##

var k: integer := 0;

foreach var c: char in ReadString do

 if((ord(c) in [65..90]) or (ord(c) in [97..122]))

   then k:= k+1;

print(k);

Комментарий 2:

Задачу можно было решить несколько иначе:

k = 0

for i in input():

   if ('a' <= i <= 'z') or ('A' <= i <= 'Z'):

       k += 1

print(k)

Комментарий 3:

Решение из комментария 2 тоже несложно написать на паскале:

##

var k: integer := 0;

foreach var c: char in ReadString do

 if((c in ['a'..'z']) or (c in ['A'..'Z']))

   then k:= k+1;

print(k);

0,0(0 оценок)
Ответ:
vanzoca
vanzoca
22.02.2022 13:08
var 
a: Array[1..10, 1..10] of Real; 
n, m, i, j, i1, j1, i2, j2: Byte; 
min, max: Real;

begin 
Writeln('Введите кол-во строк и столбцов'); 
Read(n, m);Writeln; 
for i := 1 To n Do 
begin   
Writeln('Введите ', m, ' эл. ', i, '-й строки матрицы');   
for j := 1 To m Do Read(a[i, j])
end; 
Writeln('Ваша матрица:'); 
for i := 1 To n Do 
begin   
for j := 1 To m Do
Write(a[i, j]:7:2);   
Writeln
end; 
for i := 1 To n Do 
begin   
min := a[i, 1];i1 := i;j1 := 1;   
for j := 1 To m Do    
if a[i, j] < min then begin       
min := a[i, j];i1 := i;j1 := j     
end;   
 if i = 1 Then    begin  
max := min;i2 := i1;j2 := j1   
end   
Else    if min > max Then    begin     
max := min;i2 := i1;j2 := j1   
end 
end; 
Writeln('Максимальным из минимумов строк является элемент ', max:6:2, ' с индексами [', i2, ',', j2, ']');
end.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота