)) программа на паскале.ввести натуральные числа и их количество. найти и вывести количество чисел, кратных трем и окачивающихся на 5. если что то непонятно, пишите, уточню.
Var n,i,k,d:integer; begin Write('Количество чисел='); Read(n); k:=0; Writeln('Вводите числа, после каждого числа нажимайте Enter'); for i:=1 to n do begin Read(d); if (d mod 3 = 0) and (d mod 10 = 5) then Inc(k) end; Writeln('Количество чисел, удовлетворяющих условию, равно ',k) end.
Тестовое решение: Количество чисел=8 Вводите числа, после каждого числа нажимайте Enter 537 125 5 35 999 3 1005 75 Количество чисел, удовлетворяющих условию, равно 2
Для программы обычно необходимы входные значения и соответственно то, что она возвращает. Вот, если она принимает с каждой новой строки (ввел длину одной стороны - Enter) по одному значению. На выходе она отдаст "true" - истина (если хоть две стороны равны) или "false" - ложь.
var a, b, c: integer; begin readln(a); readln(b); readln(c); if (a=b) or (a=c) or (c=b) then writeln('TRUE - trikutnik rivnobedrenyj') else writeln('FALSE - trikutnik ne rivnobedrenyj'); end.
Код полностью рабочий, только что проверен. Текст в 'кавычках' можно заменить на любой другой, но не используя символов кириллицы. Писать только на англ раскладке vot tak, kak bi eto ne bilo ushasno or typicaly print in English. Все знаки препинания и другие символы необходимо переписать в точности, не забывайте.
Если паскаль, лови... Во первых для генерации рандомного числа используется метод random(x), но он генерирует число от 1 до x, и чтоб он генерировал от какого то определенного, надо из x вычесть от какого числа генерировать, а потом к сгенерированному прибавить его random(x - n) + n. Где x - До какого числа, а n - от какого. Для нахождения максимального числа мы будем использовать метод max, который принимает два аргумента (какие числа надо сравнить), допустим max(5,10) вернет 10, max(-1, -5) вернет -1. Так же есть min - нахождение минимального. ... А теперь сам код: begin var a := random(30) + 10; var b := random(30) + 10; writeln('a:' + a); writeln('b:' + b); writeln(max(a,b)); end. ... Если не сложно нажми " " ;)
n,i,k,d:integer;
begin
Write('Количество чисел='); Read(n);
k:=0;
Writeln('Вводите числа, после каждого числа нажимайте Enter');
for i:=1 to n do begin
Read(d);
if (d mod 3 = 0) and (d mod 10 = 5) then Inc(k)
end;
Writeln('Количество чисел, удовлетворяющих условию, равно ',k)
end.
Тестовое решение:
Количество чисел=8
Вводите числа, после каждого числа нажимайте Enter
537
125
5
35
999
3
1005
75
Количество чисел, удовлетворяющих условию, равно 2