Задачи на языке Паскаль «Циклы с условием»
1. Ввести целое число N и определить, верно ли, что в нём ровно 1
цифра «5». ответ дайте в виде «да/нет».
2. Гражданин 1 января открыл счет в банке, вложив А руб. Через каждый
месяц размер вклада увеличивался на 3% от имеющейся суммы.
Определить через сколько месяцев вклад достигнет суммы равной
или большей чем В рублей.
Под управлением процессора информация о цвете каждого пикселя экрана компьютера заносится для хранения в видеопамять. Видеопамять— это электронное энергозависимое запоминающее устройство. Глубина цвета, а значит, количество цветов в палитре компьютера, зависит от размера видеопамяти. Видеопамять современных компьютеров составляет 256, 512 и более мегабайтов.
2. Видеопроцессор несколько десятков раз в секунду считывает содержимое видеопамяти и передаёт его на монитор, который превращает полученные данные в видимое человеком изображение. Частота обновления экрана(количество обновлений экрана в секунду) измеряется в герцах (Гц). Комфортная работа пользователя, при которой он не замечает мерцания экрана, возможна при частоте обновления экрана не менее 75 Гц.
Пространственное разрешение монитора, глубина цвета и частота обновления экрана — основные параметры, определяющие качество компьютерного изображения. В операционных системах предусмотрена возможность выбора необходимого пользователю и технически возможного графического режима.
begin
sum:=0;
for i:=100 to 500 do
begin
sum:=sum+i;
end;
writeln(sum);
end.
б) var a,sum,i:integer;
begin
sum:=0;
writeln('Введите число a');
readln(a);
for i:=a to 500 do
begin
sum:=sum+i;
end;
writeln(sum);
end.
в) var b,sum,i:integer;
begin
sum:=0;
writeln('Введите число b');
readln(b);
for i:=-10 to b do
begin
sum:=sum+i;
end;
writeln(sum);
end.
г) var a,b,sum,i:integer;
begin
sum:=0;
writeln('Введите число a');
readln(a);
writeln('Введите число b');
readln(b);
for i:=a to b do
begin
sum:=sum+i;
end;
writeln(sum);
end.