сервис вопросов и ответовПомоги решить, программа Паскаль
10-11 класс|
|
1. для чисел равных 5 от 1 до N вывести квадрат числа,для остальных вывести "не кратно 5"
2.посчитать сколько из 15 произвольно веденных чисел,чисел больше 15
3. для любого количества произвольных чисел найти сумму положительных
Cosmomeow
05 авг. 2013 г., 17:26:10 (10 лет назад)
Vezhnovevets86
05 авг. 2013 г., 18:43:22 (10 лет назад)
{Кратность 5ти}
var i, i1: integer;
begin
readln(i1);
for i:=0 to i1 do
if (i mod 5 = 0) then
writeln(i, ': ', sqr(i))
else
writeln(i, ': не кратно пяти');
end.
--------------------------------------------------
{ Больше 15-ти }
var i, b, c: integer;
begin
for i:=1 to 15 do
begin
readln(b);
if (b > 15) then
c := c + 1;
end;
writeln(c);
end.
------------------------------
const N=5; //Любое кол-во:)
var a: real;
i, count: integer;
begin
for i:=0 to N-1 do
begin
readln(a);
if (a > 0) then
count := count + 1;
end;
writeln(count);
end.
Ответить
Другие вопросы из категории
Посчитайте
среднее арифметическое трёх натуральных чисел
В БЛОКНОТЕ СОЗДАТЬ ПРОГРАММУ!!!
VBS
В некоторой стране автомобильный номер длинной 8 символов составляют из заглавных букв (задействовано 20 различных букв и десяти цифр в любом порядке).
Каждый такой номер в компьютерной программе записывает минимально возможным и одинаковым количеством байт (при этом используют посимвольное кодирование и все символы кодируются одинаковыми и минимально возможным количеством бит).
Определите объём памяти, отводимый этой программой для записи 40 номеров.
В процессе преобразования точечного графического рисунка кол ичество цветов уменьшилось с 65536 до 16. Во сколько раз уменьшится объѐм, занимаемый им в
памяти компьют е ра ?
Составить программу печати кодов всех символов,
входящих в состав заданного текста.
Читайте также
Помогите решить задачуна паскале.
Возможность отправлять закодированные сообщения во время Второй мировой войны была достаточно важной для союзников. Сообщения всегда отправлялись после их кодирования при помощи известного пароля. Иметь фиксированный пароль было небезопасно, поэтому возникла необходимость часто изменять его. Однако следовало разработать механизм отправления нового пароля. У одного из математиков, работавших в криптографической команде, возникла умная идея - отправить пароль, скрытый в самом сообщении. Интересным моментом было то, что получателю сообщения достаточно было знать только размер пароля, а потом найти его в полученном тексте.
Пароль размера n можно найти поиском в тексте наиболее часто встречаемой подстроки из n символов. После нахождения пароля все подстроки совпадающие с ним, удаляются из текста. Теперь пароль можно использовать для расшифровки сообщения.
Однако Ваша задача будет упрощена. Вам достаточно написать программу, которая по заданному размеру пароля и закодированному сообщению найдет пароль в соответствии с описанным выше алгоритмом.
Рассмотрим пример, в котором размер пароля равен трем (n = 3), а текст сообщения имеет вид baababacb. Паролем будет aba, потому что размер этой подстроки 3, она появляется чаще всего во всем тексте (дважды), а остальные шесть различных подстрок появляются только один раз (baa, aab, bab, bac, acb).
Технические условия
Входные данные
Состоит из нескольких тестов. Каждый тест представляет собой одну строку, в которой находится длина пароля n (0 < n ≤ 10) и закодированное сообщение. Сообщение содержит только прописные буквы латинского алфавита, его длина не более 106 и не меньше n.
Выходные данные
Для каждого теста в отдельной строке следует вывести искомый пароль. Если существует несколько паролей, удовлетворяющих задаче, то вывести лексикографически наименьший.
Помогите решить на паскале
______________________________________
В сказочном Солнечном городе живут трое братьев: Ниф-Ниф, Наф-Наф, и Нуф-Нуф. Известно, что у каждого из них есть какое-то количество денег. Так случилось, что после физкультуры они перепутали пиджаки, в которых и лежали деньги. Однако зная о возможной путанице родители пришили бирки с именами. Помогите определить сколько же денег было до физкультуры у братьев, зная что Нуф-Нуф пришел домой в пиджаке Ниф-Нифа, а Наф-Наф в пиджаке Нуф-Нуфа. Входные данные:
В единственной строке входного потока, через пробел записано три числа в диапазоне от 1 до 10^9. Первое число это количество денег, которое обнаружил Ниф-Ниф в карманах придя домой. Второе - сколько стало у Наф-Нафа. И третье сколько принес домой Нуф-Нуф.
Выходные данные:В первую строку выходного потока необходимо вывести сколько денег было у Ниф-Нифа, во вторую - сколько у Наф-Нафа, а в третью - сколько у Нуф-Нуфа.
Пример входного файла (input.txt): 32 22 54 Пример выходного файла (output.txt): 54 32 22
Помогите решить задачу.
Дан массив А1,.......Аn. найти максимальный и минимальный элементы и поменять их местами. Вот задача которую я делал:
program zadacha;
const
k=50;
var
a:array[1..k] of integer;
n,i:1..k;
c,v,max,min,prom:integer;
begin
for i:=1 to n do begin (здесь выскакивает ошибка о проверки диапазона)
a[i]:=random(50);
write(a[i],' ');
end;
max:=a[1];
min:=a[1];
for i:=1 to n do begin
if a[i]>max then begin
max:=a[i];
c:=i;
end;
if a[i]<min the begin
min:=a[i];
v:=i;
end;
end;
writeln('max=',max,'min=',min);
prom:=max; (вот с этой строчки и до конца помогите решить)
max:=min;
min:=prom;
writeln;
writeln('Полученный массив');
for i:=1 to n do
write(a[i], ' ');
readln;
end.
люди помогите решить задачку(паскаль) очень прошу
оценка за четверть решается моя
Исполнитель Черепашка выполняет программу:
для K от 1 до N выполнить
вперёд K
направо 90
кц
Ввести N и определить расстояние между начальным и конечным положением исполнителя.
Помогите решить на паскале
Вы находитесь на странице вопроса "Помоги решить, программа Паскаль", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.