ПОЖАЙЛУСТА Задача №1
Створити алгоритм блок-схему алгоритму збирання яблук.
Задача №2
Створити блок-схему алгоритму знаходження середнього арифметичного трьох чисел, де: a, b, с — вхідні дані; S — проміжний результат; Sr — вихідні дані (результат виконання алгоритму).
Задача №3
Створити блок-схему алгоритму обирання розваги: якщо в касі є квитки, то придбати квиток і переглянути фільм, інакше — піти на прогулянку до парку
Задача №4
Створити блок-схему алгоритму для розв’язування задачі: якщо ціна книжки не перевищує n гривень, купити цю книжку й сувенір, в іншому випадку купити тільки книжку.
Задача №5
Створити блок-схему алгоритму побудови квадрата у якому 4 рази потрібно повторювати дії «намалювати сторону», «повернути за годинниковою стрілкою на 900»
program vt;
type toy = record // тип игрушка
name : string; // название
price : integer; // стоимость
age : integer; // возрастные границы
a: boolean;
end;
var
f : text; // переменая для работы с файлом
i : integer; // счетчик
size : integer; // кол. игрушек
maxage : integer; // макс. возрастная граница
maxprice : integer; // макс цена игрушки
mas : array [1..100] of toy; // контейнер игрушек
begin
assign(f, 'input.txt'); // связываем переменную с файлом
reset(f); // открываем файл на чтение
i : = 1; // 1 игрушка
maxprice : = 400; // макс цена = 400
maxage: =5; //макс. возрастная граница = 5
while (not eof(f)) do // пока не дошли до конца файла
begin
readln(f, mas[i].name); // считываем данные об игрушке
readln(f, mas[i].price);
readln(f, mas[i].age);
maxage > mas[i].age; //найти все до 5 лет
writeln
end;
end.
ответ: у тебя не правильное .в начале нужно найти максимальное число не оканч.на 3 , а потом вывести макс. число оканчивающееся на 3.ты разберись. но если ты шаришь в икт и просто не знаешь , как задать условие ,то там нужно через целые и кратные (div/mod) в твоем случае будет как-то так
if a mod 10=3 and a> max then max: =a
ну если ты ленивая жо#а то вот:
var a,b,k,max: integer;
begin
writeln('введите количество чисел > > n ');
readln(n);
max: =0;
for k: = 1 to n do;
begin
writeln('введите числа > > a ');
readln(a);
if (a mod 10=3) and (a> max) then max: =a
end;
writeln('самое больше число оканчивающееся на 3 -',max)
end.
в полной правильности я не уверен(т.к у меня нету паскаля),проверь компилятором