Program fantscrin;
const n = 100;
Var a: array [1..n] of integer;
i,j,k,s:integer;
Begin
k:=0;
for i:=1 to n do
begin
readln(a[i]);
if (a[i] = 0) then break;
k:=k+1;
end;
for i:=1 to k do
write(a[i], ' ');
for i:=1 to k do
if ((a[i] mod 10 = 3)and(a[i] mod 7 = 0)) then s:=s+a[i];
writeln('');
writeln(s);
End.
1
А-обработка
В-передача , обработка
С-хранение обработка
Д-передача обработка
Е- обработка
Ф- обработка передача
2. И- светофор п-Андрей
И- Петя п- Коля
И- радио п- Аня
И- книга п-женя
И-автобус п-света
//Я так понял, что нужно писать программу на языке С (так как была указана стандартная библиотека stdio.h данного языка) с использованием операторов if и else
#include <stdio.h>
#include <locale.h>
int main()
{
setlocale(LC_ALL, "Rus");
int num;
printf("Введите номер времени года: ");
scanf("%d", &num);
if (num == 1)
printf("\nЗима:\n1) Декабрь\n2) Январь\n3) Февраль\n");
else if (num == 2)
printf("\nВесна:\n1) Март\n2) Апрель\n3) Май\n");
else if (num == 3)
printf("\nЛето:\n1) Июнь\n2) Июль\n3) Август\n");
else if (num == 4)
printf("\nОсень:\n1) Сентябрь\n2) Октябрь\n3) Ноябрь\n");
else
printf("\nВремени года с данным номером не обнаружено!\n");
return 0;
}
Program z3; Var y: array [1..15] of real; g: array [1..20] of real; i,d: integer; sum, sum_2: real;Begin writeln('Введите оплату труда за день'); read(d); for i := 1 to 15 do y[i] := random (30) * d * 0.8; for i:=1 to 20 do g[i] := random (30) * d * 0.8; for i:=1 to 15 do begin writeln('Сотрудник y_',i,' - ',y[i]); sum:= sum + y[i]; end; writeln; writeln('Сумма отдела y - ', sum); writeln; for i:=1 to 20 do begin writeln('Сотрудник g_',i,' - ',g[i]); sum_2:= sum_2 + g[i]; end; writeln; writeln('Сумма отдела g - ', sum_2); writeln; End.
Перевод из Килобайт в Байт происходит следующим образом:
Количество Килобайт умножается на количество Байт, содержащихся в одном Килобайте.
<h3>1 Килобайт = 1024 Байт</h3>
456 Килобайт = 456 · 1024 = 466944 Байт
897 Килобайт = 897 · 1024 = 918528 Байт
<h2>Ответ</h2>
466944; 918528