Uses graphabc;
begin
window.IsFixedSize := true;
window.Height := 600;
window.Width := 800;
pen.Color := clred;
lockdrawing;
for var i := 0 to 750 do
begin
window.Clear;
DrawRectangle(i, 0, 50 + i, 50);
redraw;
end;
end.
For (int i = 16; i < 10000; ++i)[
if (i%2 >0) continue;
if (!(i%16) && !(i%31))
<span> printf("%d ,",i);</span>
}
Ответ:
Объяснение:
using System;
public class Program
{
public static void Main()
{
int[] A = new int[30];
var rand = new Random();
for(int i = 0; i < 30; i ++) // Заполняем в цикле массив случайными числами от 0 до 100
A[i] = rand.Next(0, 100);
int kolichestvo, summa;
kolichestvo = 0;
summa = 0;
for(int i = 0; i < 30; i ++) //цикл по элементам массива
{
if((A[i] % 5) == 0)// операция "%" - остаток от деления, если = 0 значит поделилось нацело, если не равно нулю, значит поделилось с остатком
{
if((A[i] % 3) != 0)
{
kolichestvo = kolichestvo + 1;
summa = summa + A[i];
}
}
}
Console.Write("Сумма: ");
Console.Write(summa);
Console.Write(" Количество: ");
Console.Write(kolichestvo);
}
}
Ответ:
var i,n,k,a:integer;
begin
write('Введите количество проданных газет ');
readln (k);
write('Введите сколько получает продавец с продажи каждой из первых 50 газет ');
readln (a);
if k<=50 then writeln ('заработок продавца ',k*a)//если продано ровно 50 газет или меньше
else writeln ('Заработок продавца ',50*a+((k-50)*a*1.2))//если продано больше 50 газет
end.
Объяснение:
Если продано ровно 50 газет или меньше
, то заработок рассчитывается просто умножением количества газет (k) на стоимость продажи каждой из первых 50 газет (a).
Если продано больше 50 газет, то вычисляем сколько продавец получит за первые 50 газет (50*a - умножаем 50 газет на стоимость продажи каждой из первых 50 газет (a)) и к этому числу прибавляем деньги полученные за продажу остальных газет ((k-50)*a*1.2) - умножаем количество газет проданных после первых 50 (k-50) на стоимость газет с учётом процентов a*1,2)
